fixed parsing of prefix, thanks to comments from Matthew Flatt

2011-05-24 14:51:56 -04:00 · 2011-05-24 14:51:56 -04:00 · 98bb806c93
commit 98bb806c93
parent b740fea82c
1 changed files with 3 additions and 6 deletions
--- a/parse-bytecode-5.1.1.rkt
+++ b/parse-bytecode-5.1.1.rkt
@ -182,12 +182,9 @@
    [(struct prefix (num-lifts toplevels stxs))
     (make-Prefix 
      (append (map parse-prefix-toplevel toplevels)
-              (if (empty? stxs)
-                  empty
-                  (list #f))
-              (build-list num-lifts
-                          (lambda (i)
-                            #f))))]))
+              (map (lambda (x) #f) stxs)
+              (if (empty? stxs) empty (list #f))
+              (build-list num-lifts (lambda (i) #f))))]))


 ;; parse-top-code: (U form Any -> Expression)