diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2017-12-09 23:12:52 -0800 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2017-12-09 23:12:52 -0800 |
| commit | 49b78de1b0819d82187f0d1ded65e7c678540aed (patch) | |
| tree | f76c3b4a71f8fa8b672bc9fa73babd1d3430a4cf /elisp/geiser-chicken.el | |
| parent | 3fa575feefb14bf472d69f5c2041d4ab51c3dae9 (diff) | |
| download | geiser-guile-49b78de1b0819d82187f0d1ded65e7c678540aed.tar.gz geiser-guile-49b78de1b0819d82187f0d1ded65e7c678540aed.tar.bz2 | |
Removed rate limit setting.
Necessary for jaor/geiser#174
Diffstat (limited to 'elisp/geiser-chicken.el')
| -rw-r--r-- | elisp/geiser-chicken.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 60567b7..e61da2d 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -279,19 +279,17 @@ This function uses `geiser-chicken-init-file' if it exists." (suppression-prefix "(define geiser-stdout (current-output-port))(current-output-port (make-output-port (lambda a #f) (lambda a #f)))") (suppression-postfix - "(current-output-port geiser-stdout)") - (match-limit-set - (format "(geiser-chicken-symbol-match-limit %s)" geiser-chicken-match-limit))) + "(current-output-port geiser-stdout)")) (let ((load-sequence (cond (force-load - (format "(load \"%s\")\n(import geiser)%s\n" source match-limit-set)) + (format "(load \"%s\")\n(import geiser)\n" source)) ((file-exists-p target) - (format "%s(load \"%s\")(import geiser)%s%s\n" - suppression-prefix target match-limit-set suppression-postfix)) + (format "%s(load \"%s\")(import geiser)%s\n" + suppression-prefix target suppression-postfix)) (t - (format "%s(use utils)(compile-file \"%s\" options: '(\"-O3\" \"-s\") output-file: \"%s\" load: #t)(import geiser)%s%s\n" - suppression-prefix source target match-limit-set suppression-postfix))))) + (format "%s(use utils)(compile-file \"%s\" options: '(\"-O3\" \"-s\") output-file: \"%s\" load: #t)(import geiser)%s\n" + suppression-prefix source target suppression-postfix))))) (geiser-eval--send/wait load-sequence)))) (defun geiser-chicken--startup (remote) |