We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e39c0e6 commit 98b22d1Copy full SHA for 98b22d1
interpreter/syntax_checker.scm
@@ -1,10 +1,7 @@
1
2
(define (check-vaquero-syntax prog)
3
(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)))
+ (check-vaquero-form prog)
8
#t))
9
10
(define (check-vaquero-form form)
@@ -42,8 +39,7 @@
42
39
#f)
43
40
44
41
(define (check-vaquero-list form)
45
- (define (check-with-db form) (check-vaquero-form form))
46
- (define bool-party (map check-with-db form))
+ (define bool-party (map check-vaquero-form form))
47
(define true? (lambda (x) (eq? x #t)))
48
(every true? bool-party))
49
0 commit comments