Skip to content

Commit 98b22d1

Browse files
committed
Fixed bug in check-vaquero-list and removed superfluous check for (modules).
1 parent e39c0e6 commit 98b22d1

File tree

1 file changed

+2
-6
lines changed

1 file changed

+2
-6
lines changed

interpreter/syntax_checker.scm

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,7 @@
11

22
(define (check-vaquero-syntax prog)
33
(if (and (pair? prog) (list? prog))
4-
(let ((first (car prog)))
5-
(if (and (pair? first) (eq? 'modules (car first)))
6-
(check-vaquero-form (cadr prog)) ; skip (modules)
7-
(check-vaquero-form first)))
4+
(check-vaquero-form prog)
85
#t))
96

107
(define (check-vaquero-form form)
@@ -42,8 +39,7 @@
4239
#f)
4340

4441
(define (check-vaquero-list form)
45-
(define (check-with-db form) (check-vaquero-form form))
46-
(define bool-party (map check-with-db form))
42+
(define bool-party (map check-vaquero-form form))
4743
(define true? (lambda (x) (eq? x #t)))
4844
(every true? bool-party))
4945

0 commit comments

Comments
 (0)