Ticket #1654: holes.patch

holes-params.scm

@@ +1 @@
+(module holes-params (hole-delimiters)
+  (import scheme (only (chicken base) make-parameter))
+  
+(define hole-delimiters
+  (make-parameter "<>"
+                  (lambda (arg)
+                    (if (and (string? arg)
+                             (or (string=? arg "!!")
+                                 (string=? arg "<>")))
+                        arg
+                        "<>"))
+                  )))

holes.egg

@@ -5 +5 @@
  (test-dependencies simple-tests)
  (author "[[Juergen Lorenz]]")
  (version "1.1")
- (components (extension holes)))
-
-
+ (components (extension holes
+                        (component-dependencies holes-params))
+             (extension holes-params)))

holes.scm

@@ -55 +55 @@
                 set-sharp-read-syntax!
                 set-read-syntax!))
   (import-for-syntax (only (chicken base) receive)
-                     (only (chicken fixnum) fx- fx+ fx=))
+                     (only (chicken fixnum) fx- fx+ fx=)
+                     holes-params)
 
-(define-for-syntax hole-delimiters
-  (make-parameter "<>"
-                  (lambda (arg)
-                    (if (and (string? arg)
-                             (or (string=? arg "!!")
-                                 (string=? arg "<>")))
-                        arg
-                        "<>"))
-                  ))
 ;;; (@@ code)
 ;;; ---------
 ;;; returns a procedure with arguments the holes in code

tests/run.scm

@@ -1 +1 @@
 (import holes simple-tests)
+(import holes-params)
 
-
 (pe '(@@ (+ !1! 5)))
 (pe '(@@ '(1 . 2)))
 (pe '(@@ (+ 5 (* !! 2))))