From 0ff0a23c8c7425b0d56b95e318c2087e74cb6605 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 7 Jun 2021 16:34:36 -0400 Subject: Get all scheme code compiling with Guile --- bs/re.scm | 3 +-- bs/repl.scm | 4 +++- bs/test.scm | 5 +++-- 3 files changed, 7 insertions(+), 5 deletions(-) (limited to 'bs') diff --git a/bs/re.scm b/bs/re.scm index a325249..0ab442b 100644 --- a/bs/re.scm +++ b/bs/re.scm @@ -21,8 +21,7 @@ ) (import (rnrs base) ;; TODO: port to srfi-115 - (only (ice-9 regex) - make-regexp)) + (ice-9 regex)) ;; (define I regexp/icase) ;; (define IGNORECASE regexp/icase) diff --git a/bs/repl.scm b/bs/repl.scm index 3932433..3bf1ca1 100644 --- a/bs/repl.scm +++ b/bs/repl.scm @@ -1,4 +1,6 @@ -(define-module (bs repl)) +(define-module (bs repl) + #:use-module (system repl command)) + ;; (use-modules (system repl common)) ;; (repl-default-option-set! ;; 'prompt diff --git a/bs/test.scm b/bs/test.scm index 9152760..a45bca1 100644 --- a/bs/test.scm +++ b/bs/test.scm @@ -12,5 +12,6 @@ ;; simple analog to clojure's `testing' (define-syntax testing - ((_ description ...) - ((begin (prn description) ...)))) + (syntax-rules () + ((_ description ...) + ((begin (prn description) ...))))) -- cgit v1.2.3