diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-29 01:42:37 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-29 01:42:37 +0100 |
| commit | e4f87fdc18d4aef2c4e7c3602ac3975f2140fae1 (patch) | |
| tree | 026a08cbafd054a63a006f5b0cbd7153973c8a71 /elisp/geiser-racket.el | |
| parent | d70e9de59cfeae4fa8e76a48dbfe80e9d25e0d7c (diff) | |
| download | geiser-guile-e4f87fdc18d4aef2c4e7c3602ac3975f2140fae1.tar.gz geiser-guile-e4f87fdc18d4aef2c4e7c3602ac3975f2140fae1.tar.bz2 | |
Fixes for locals scanning
... using the new non-interning reader. Plus scanning for case-lambda
and syntax-rules. `geiser-syntax--scan-locals' is in danger of
refactoring, specially if we add support for let-values.
Diffstat (limited to 'elisp/geiser-racket.el')
| -rw-r--r-- | elisp/geiser-racket.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index a349d6e..19301ce 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -84,7 +84,8 @@ This function uses `geiser-racket-init-file' if it exists." (rackdir (expand-file-name "racket/" geiser-scheme-dir))) `("-i" "-q" "-S" ,rackdir - ,@(apply 'append (mapcar (lambda (p) (list "-S" p)) geiser-racket-collects)) + ,@(apply 'append (mapcar (lambda (p) (list "-S" p)) + geiser-racket-collects)) ,@(and (listp binary) (cdr binary)) ,@(and init-file (file-readable-p init-file) (list "-f" init-file)) "-f" ,(expand-file-name "geiser/startup.rkt" rackdir)))) @@ -161,16 +162,17 @@ This function uses `geiser-racket-init-file' if it exists." (get-buffer-process (current-buffer))) (defconst geiser-racket--binding-forms - '(for for/list for/hash for/hasheq for/and for/or - for/lists for/first for/last for/fold - for: for/list: for/hash: for/hasheq: for/and: for/or: - for/lists: for/first: for/last: for/fold:)) + '("for" "for/list" "for/hash" "for/hasheq" "for/and" "for/or" + "for/lists" "for/first" "for/last" "for/fold" + "for:" "for/list:" "for/hash:" "for/hasheq:" "for/and:" "for/or:" + "for/lists:" "for/first:" "for/last:" "for/fold:" + "define-syntax-rule")) (defconst geiser-racket--binding-forms* - '(for* for*/list for*/lists for*/hash for*/hasheq for*/and - for*/or for*/first for*/last for*/fold - for*: for*/list: for*/lists: for*/hash: for*/hasheq: for*/and: - for*/or: for*/first: for*/last: for*/fold:)) + '("for*" "for*/list" "for*/lists" "for*/hash" "for*/hasheq" "for*/and" + "for*/or" "for*/first" "for*/last" "for*/fold" + "for*:" "for*/list:" "for*/lists:" "for*/hash:" "for*/hasheq:" "for*/and:" + "for*/or:" "for*/first:" "for*/last:" "for*/fold:")) ;;; External help |