From 39619988e4a541278f79b410261af1b0e693587a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 23 Apr 2021 21:42:44 +0200 Subject: [PATCH] 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 40cd90486..7f4f97709 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)))))