remove some stray variable

This commit is contained in:
2025-07-25 15:33:17 +03:00
parent 5c714d8c36
commit 7967a75313

View File

@@ -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)