remove some stray variable
This commit is contained in:
3
sexc.scm
3
sexc.scm
@@ -14,8 +14,6 @@
|
|||||||
srfi-1 ; list routines
|
srfi-1 ; list routines
|
||||||
tree)
|
tree)
|
||||||
|
|
||||||
(define +debug+ #f)
|
|
||||||
|
|
||||||
(define (unkebabify sym)
|
(define (unkebabify sym)
|
||||||
(case sym
|
(case sym
|
||||||
((-) sym)
|
((-) sym)
|
||||||
@@ -177,7 +175,6 @@
|
|||||||
(else
|
(else
|
||||||
(walk-sex-tree form acc))))
|
(walk-sex-tree form acc))))
|
||||||
|
|
||||||
|
|
||||||
(define (process-raw-forms raw-forms acc)
|
(define (process-raw-forms raw-forms acc)
|
||||||
(if (null? raw-forms)
|
(if (null? raw-forms)
|
||||||
(reverse acc)
|
(reverse acc)
|
||||||
|
|||||||
Reference in New Issue
Block a user