suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed parsing of prefix, thanks to comments from Matthew Flatt

Browse Source
This commit is contained in:
Danny Yoo 2011-05-24 14:51:56 -04:00
parent b740fea82c
commit 98bb806c93
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
parse-bytecode-5.1.1.rkt
View File

@ -182,12 +182,9 @@
[(struct prefix (num-lifts toplevels stxs)) [(struct prefix (num-lifts toplevels stxs))
(make-Prefix (make-Prefix
(append (map parse-prefix-toplevel toplevels) (append (map parse-prefix-toplevel toplevels)
(if (empty? stxs) (map (lambda (x) #f) stxs)
empty (if (empty? stxs) empty (list #f))
(list #f)) (build-list num-lifts (lambda (i) #f))))]))
(build-list num-lifts
(lambda (i)
#f))))]))
;; parse-top-code: (U form Any -> Expression) ;; parse-top-code: (U form Any -> Expression)