diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-07 21:29:35 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-07 21:29:35 +0100 |
| commit | 65babf6e0ec27d0757e36c91a4bbddcba6df9b56 (patch) | |
| tree | 1593c00cae77b67891d74c14db1e4dd098e4ead3 | |
| parent | 9a14aa781cf79eccf20aba73b91dce65c26ff2e2 (diff) | |
| download | geiser-chez-65babf6e0ec27d0757e36c91a4bbddcba6df9b56.tar.gz geiser-chez-65babf6e0ec27d0757e36c91a4bbddcba6df9b56.tar.bz2 | |
PLT: additional binding forms (sequence API).
| -rw-r--r-- | elisp/geiser-plt.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index c808ed5..53177d3 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -112,6 +112,13 @@ This function uses `geiser-plt-init-file' if it exists." (defun geiser-plt--enter-command (module) (and (stringp module) (format "(enter! (file %S))" module))) +(defconst geiser-plt--binding-forms + '(for for/list for/hash for/hasheq for/and for/or + for/lists for/first for/last for/fold)) + +(defconst geiser-plt--binding-forms* + '(for* for*/list for*/lists for*/hash for*/hasheq for*/and + for*/or for*/first for*/last for*/fold)) ;;; External help @@ -183,7 +190,9 @@ This function uses `geiser-plt-init-file' if it exists." (find-symbol-begin geiser-plt--symbol-begin) (display-error geiser-plt--display-error) (display-help geiser-plt--external-help) - (check-buffer geiser-plt--guess)) + (check-buffer geiser-plt--guess) + (binding-forms geiser-plt--binding-forms) + (binding-forms* geiser-plt--binding-forms*)) (geiser-impl--add-to-alist 'regexp "\\.mzscheme\\.sl?s$" 'plt t) (geiser-impl--add-to-alist 'regexp "\\.ss$" 'plt t) |