mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Fix comments in cps/compile-bytecode

Browse source 
* module/language/cps/compile-bytecode.scm (compile-function): Fix
unfinished comments.
This commit is contained in:
Andy Wingo 2021-04-23 21:42:44 +02:00
parent 86e86ec1c7
commit 39619988e4
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/cps/compile-bytecode.scm
View file

@ -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)))))