summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorMaris Orbidans <maris.orbidans@onthemarket.com>2018-03-29 13:48:21 +0100
committerMaris Orbidans <maris.orbidans@onthemarket.com>2018-03-29 13:48:21 +0100
commita5a617648a445ff323bc7c832786769782d8c45c (patch)
treebfa20dce6363e1adfa0b0b49962342f4f54b8dbd /scheme
parent6eb6a92d5178e73c5097e9166b29a6b88910c823 (diff)
downloadgeiser-chez-a5a617648a445ff323bc7c832786769782d8c45c.tar.gz
geiser-chez-a5a617648a445ff323bc7c832786769782d8c45c.tar.bz2
fix compile and load for chez
Diffstat (limited to 'scheme')
-rw-r--r--scheme/chez/geiser/geiser.ss17
1 files changed, 17 insertions, 0 deletions
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 8b9aba7..38bc68f 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -4,9 +4,26 @@
geiser:module-completions
geiser:autodoc
geiser:no-values
+ geiser:load-file
geiser:newline)
(import (chezscheme))
+ (define (last-index-of str-list char idx last-idx)
+ (if (null? str-list)
+ last-idx
+ (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car str-list)) idx last-idx))))
+
+ (define (obj-file-name name)
+ (let ((idx (last-index-of (string->list name) #\. 0 -1)))
+ (if (= idx -1)
+ (string-append name ".so")
+ (string-append (substring name 0 idx) ".so"))))
+
+ (define (geiser:load-file filename)
+ (let ((output-filename (obj-file-name filename)))
+ (maybe-compile-file filename output-filename)
+ (load output-filename)))
+
(define string-prefix?
(lambda (x y)
(let ([n (string-length x)])