Welcome to the CHICKEN Scheme pasting service

Replace chicken-home pasted by siiky on Wed Sep 2 18:16:45 2026

diff --git a/crunch.compiler.debug-old.scm b/crunch.compiler.debug.scm
index c623b10..f7527ae 100644
--- a/crunch.compiler.debug.scm
+++ b/crunch.compiler.debug.scm
@@ -22,7 +22,7 @@

 (define crunch-dir
   (or (get-environment-variable "CRUNCH_DIR")
-      (chicken-home)))
+      (car (include-path))))

 (define debugger-input (make-parameter #f))
[ permalink | raw ]

Define chicken-home for CHICKEN 6 added by siiky on Wed Sep 2 18:24:57 2026

diff --git a/crunch.compiler.debug.scm b/crunch.compiler.debug.scm
index c623b10..fefbe5c 100644
--- a/crunch.compiler.debug.scm
+++ b/crunch.compiler.debug.scm
@@ -16,6 +16,11 @@
 (import (crunch compiler node)
         (crunch compiler type))

+(cond-expand
+  (chicken-6
+    (define (chicken-home)
+      (car (include-path)))))
+
 (define debugger-active (make-parameter #f))

 (define wish (or (get-environment-variable "CRUNCH_WISH") "wish"))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What module provides regular expressions support?
Visually impaired? Let me spell it for you (wav file) download WAV