Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bugfix, forgot acc

Browse source
This commit is contained in:
Justin Ethier 2018-09-25 17:54:28 -04:00
parent bba1783a49
commit 62145ea95a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cps-optimizations.sld
View file

@ -119,7 +119,7 @@
(define (adb:lambda-ids) (define (adb:lambda-ids)
(filter number? (hash-table-keys *adb*))) (filter number? (hash-table-keys *adb*)))
(define (adb:max-lambda-id) (define (adb:max-lambda-id)
(foldl max (adb:lambda-ids))) (foldl max 0 (adb:lambda-ids)))
(define (adb:set! key val) (hash-table-set! *adb* key val)) (define (adb:set! key val) (hash-table-set! *adb* key val))
(define-record-type <analysis-db-variable> (define-record-type <analysis-db-variable>
(%adb:make-var (%adb:make-var