Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bugfix - swap when we use num-lambda

Browse source
This commit is contained in:
Justin Ethier 2018-09-26 12:25:08 -04:00
parent 92fb2c176d
commit 31e99da295
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -906,7 +906,7 @@
;;TODO: this is not going to work, we are going to need to use ast:lambda-id instead of ;;TODO: this is not going to work, we are going to need to use ast:lambda-id instead of
;;an allocation ID. make that change in allocate-lambda, disable all WKL code, and make ;;an allocation ID. make that change in allocate-lambda, disable all WKL code, and make
;;sure it is stable before proceeding... ;;sure it is stable before proceeding...
; cgen id ,(adbf:cgen-id fnc) ; cgen id ,(ast:lambda-id wkf)
; ))) ; )))
; ) ; )
(set-c-call-arity! (c:num-args cargs)) (set-c-call-arity! (c:num-args cargs))
@ -1160,7 +1160,7 @@
(define (allocate-lambda ast:lam lam . cps?) (define (allocate-lambda ast:lam lam . cps?)
(let ((id num-lambdas)) (let ((id num-lambdas))
(cond (cond
((and ast:lam (equal? cps? '(#f))) ((and ast:lam (not (equal? cps? '(#f))))
(set! id (ast:lambda-id ast:lam))) (set! id (ast:lambda-id ast:lam)))
(else (else
(set! num-lambdas (+ 1 num-lambdas)))) (set! num-lambdas (+ 1 num-lambdas))))