summaryrefslogtreecommitdiff
path: root/elisp/geiser-plt.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 21:29:35 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 21:29:35 +0100
commit65babf6e0ec27d0757e36c91a4bbddcba6df9b56 (patch)
tree1593c00cae77b67891d74c14db1e4dd098e4ead3 /elisp/geiser-plt.el
parent9a14aa781cf79eccf20aba73b91dce65c26ff2e2 (diff)
downloadgeiser-chez-65babf6e0ec27d0757e36c91a4bbddcba6df9b56.tar.gz
geiser-chez-65babf6e0ec27d0757e36c91a4bbddcba6df9b56.tar.bz2
PLT: additional binding forms (sequence API).
Diffstat (limited to 'elisp/geiser-plt.el')
-rw-r--r--elisp/geiser-plt.el11
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)