[Guile-commits] 01/02: Fix comments in cps/compile-bytecode

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 39619988e4a541278f79b410261af1b0e693587a
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri Apr 23 21:42:44 2021 +0200

    Fix comments in cps/compile-bytecode
    
    * module/language/cps/compile-bytecode.scm (compile-function): Fix
    unfinished comments.
---
 module/language/cps/compile-bytecode.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/compile-bytecode.scm 
b/module/language/cps/compile-bytecode.scm
index 40cd904..7f4f977 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -642,10 +642,13 @@
          (when src
            (emit-source asm src))
          (emit-begin-program asm label meta)
-         ;; If the function has a $kargs as entry, handle 
          (match (intmap-ref cps entry)
-           (($ $kclause) #t) ;; Leave arity handling to the 
+           (($ $kclause)
+            ;; Leave arity handling to the dispatcher.
+            #t)
            (($ $kargs names vars _)
+            ;; Otherwise the $kfun continues to the $kargs directly,
+            ;; without any arity checking, so we begin the arity here.
             (emit-begin-unchecked-arity asm (->bool self) names frame-size)
             (when self
               (emit-definition asm 'closure 0 'scm)))))