chicken: remove keywords for live ebuild, remove host-pcre use flag

1 files changed, 8 insertions, 4 deletions

diff --git a/misc/interpret b/misc/interpret
index 7a50ce2a..30cfea8a 100755
--- a/misc/interpret
+++ b/misc/interpret
@@ -1,17 +1,21 @@
 #!/bin/bash
-set -x
+#set -x
 # Usage:
 # interpret a file: ./interpret mzscheme < scheme.scm
 # interpret code: ./interpret <<< "(display \"hello\nworld\")(newline)"   
 # use SLIB: ./interpret-slib <<< "(slib:report)"
 
+# tricky examples:
+# ./interpret bigloo <<< "(display (eq? (string->symbol \"\`\") '|\`|)))(newline)"
+# ./interpret bigloo <<< '(display (eq? (string->symbol "`") '\''|`|)))(newline)'
+
 # LOAD_SLIB=$(if [[ $0 == *slib* ]]; then echo "slib"; else echo ""; fi)
 if [[ $0 = *slib* ]]; then LOAD_SLIB="slib"; fi
 
 #echo "${LOAD_SLIB}"
 
 read -r -d "" PROGRAM
-#echo "${PROGRAM}"
+echo "PROGRAM = ${PROGRAM}"
 PROGRAM="(begin ${PROGRAM} (newline))"
 
 IMPLEMENTATION="${1:-all}"
@@ -30,8 +34,8 @@ run_bigloo() {
 run_chicken() {
     SLIB_INIT="chicken"
     echo "chicken:"
-    csi -require-extension syntax-case -eval \
-	"$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")"
+#    csi -require-extension syntax-case -eval \
+    csi -eval "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")"
 }
 
 run_gambit() {