Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename function

Browse source
This commit is contained in:
Justin Ethier 2019-09-10 17:35:49 -04:00
parent 947e15662a
commit 30fd74792f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/pass-validate-syntax.scm
View file

@ -18,7 +18,7 @@
;; ;;
;; TODO: call this from cyclone.scm after it works, probably after "resolve macros" ;; TODO: call this from cyclone.scm after it works, probably after "resolve macros"
(define (validate-syntax exp) (define (validate-keyword-syntax exp)
;; Only need to track local vars if they shadow one of our keywords ;; Only need to track local vars if they shadow one of our keywords
(define (include-var? v) (define (include-var? v)
(member v '(define set! if lambda let))) (member v '(define set! if lambda let)))
@ -109,4 +109,4 @@
;(if 1 2 3 4) ;(if 1 2 3 4)
(let ((sexp (read-all (open-input-file "validation.scm")))) (let ((sexp (read-all (open-input-file "validation.scm"))))
(validate-syntax sexp)))) (validate-keyword-syntax sexp))))