~ chicken-core (chicken-5) f6cb209c295467479ba5311fa9c70c9407018ca0
commit f6cb209c295467479ba5311fa9c70c9407018ca0
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Oct 27 17:00:28 2012 +0200
Commit: Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sat Oct 27 17:35:18 2012 +0200
Use "chicken-syntax" unit by default. This makes extended chicken syntax available to compiled code that invokes the evaluator.
Signed-off-by: Peter Bex <peter.bex@xs4all.nl>
diff --git a/c-platform.scm b/c-platform.scm
index fa96c81b..0930d11f 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -64,7 +64,7 @@
(bound-to-procedure
##sys#profile-entry ##sys#profile-exit) ) ) )
-(define units-used-by-default '(library eval))
+(define units-used-by-default '(library eval chicken-syntax))
(define words-per-flonum 4)
(define parameter-limit 1024)
(define small-parameter-limit 128)
diff --git a/chicken-install.scm b/chicken-install.scm
index 32fae4d6..63ef79a7 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -26,7 +26,7 @@
(require-library setup-download setup-api)
(require-library srfi-1 posix data-structures utils irregex ports extras srfi-13 files)
-(require-library chicken-syntax) ; in case an import library reexports chicken syntax
+(require-library chicken-syntax) ; OBSOLETE (but left to allow older chicken's to bootstrap)
(require-library chicken-ffi-syntax) ; same reason, also for filling modules.db
(module main ()
diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 9b283cc0..5de86f00 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -35,9 +35,7 @@
(no-bound-checks)
(no-procedure-checks))
-(##sys#provide
- 'chicken-more-macros ; historical, remove later
- 'chicken-syntax)
+(##sys#provide 'chicken-syntax)
;;; Non-standard macros:
diff --git a/csi.scm b/csi.scm
index b7538e65..1d5f64b7 100644
--- a/csi.scm
+++ b/csi.scm
@@ -26,7 +26,8 @@
(declare
- (uses chicken-syntax ports extras)
+ (uses chicken-syntax) ; OBSOLETE (but left to allow older chicken's to bootstrap)
+ (uses ports extras)
(usual-integrations)
(disable-interrupts)
(compile-syntax)
diff --git a/eval.scm b/eval.scm
index 9ae1c8b5..66021ee3 100644
--- a/eval.scm
+++ b/eval.scm
@@ -70,6 +70,7 @@
(define default-dynamic-load-libraries
`(,(string-append "lib" install-lib-name)))
+
(define-constant cygwin-default-dynamic-load-libraries '("cygchicken-0"))
(define-constant macosx-load-library-extension ".dylib")
(define-constant windows-load-library-extension ".dll")
diff --git a/manual/faq b/manual/faq
index 6f178cb5..b854aae8 100644
--- a/manual/faq
+++ b/manual/faq
@@ -798,16 +798,6 @@ runtime and, if the file loaded is a Scheme source code file
(instead of a shared object), it will be
interpreted (even if the caller program is compiled).
-==== How do I use extended (non-standard) syntax in evaluated code at run-time?
-
-Normally, only standard Scheme syntax is available to the evaluator. To
-use the extensions provided in the CHICKEN compiler and interpreter,
-add:
-
-<enscript highlight=scheme>
-(require-library chicken-syntax)
-</enscript>
-
=== Extensions
==== Where is "chicken-setup" ?
diff --git a/tests/syntax-tests-2.scm b/tests/syntax-tests-2.scm
index 7eb2be7d..a273dcbd 100644
--- a/tests/syntax-tests-2.scm
+++ b/tests/syntax-tests-2.scm
@@ -1,6 +1,4 @@
;;;; syntax-tests-2.scm - tests using extended syntax at runtime
-(require-library chicken-syntax)
-
(eval '(define-record-type x (make x) x? (x get-x)))
(assert (eq? 'yes (get-x (make 'yes))))
Trap