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

Removing debugging aid

Browse Source
This commit is contained in:
Jay McCarthy 2010-09-16 12:45:23 -06:00
parent c88eb704c7
commit 089e99fac6
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/compiler/zo-parse.rkt
View File

@ -733,8 +733,6 @@
(define (parse-module-path-index cp s) (define (parse-module-path-index cp s)
s) s)
(define (error-when-false v)
(or v (error "app rator is false")))
;; ---------------------------------------- ;; ----------------------------------------
;; Main parsing loop ;; Main parsing loop
@ -930,7 +928,7 @@
[(small-marshalled) [(small-marshalled)
(read-marshalled (- ch cpt-start) cp)] (read-marshalled (- ch cpt-start) cp)]
[(small-application2) [(small-application2)
(make-application (error-when-false (read-compact cp)) (make-application (read-compact cp)
(list (read-compact cp)))] (list (read-compact cp)))]
[(small-application3) [(small-application3)
(make-application (read-compact cp) (make-application (read-compact cp)
@ -938,12 +936,12 @@
(read-compact cp)))] (read-compact cp)))]
[(small-application) [(small-application)
(let ([c (add1 (- ch cpt-start))]) (let ([c (add1 (- ch cpt-start))])
(make-application (error-when-false (read-compact cp)) (make-application (read-compact cp)
(for/list ([i (in-range (sub1 c))]) (for/list ([i (in-range (sub1 c))])
(read-compact cp))))] (read-compact cp))))]
[(application) [(application)
(let ([c (read-compact-number cp)]) (let ([c (read-compact-number cp)])
(make-application (error-when-false (read-compact cp)) (make-application (read-compact cp)
(for/list ([i (in-range c)]) (for/list ([i (in-range c)])
(read-compact cp))))] (read-compact cp))))]
[(closure) [(closure)