~ chicken-core (chicken-5) ee6b46ab393647c654c325101784d42231941cbf

commit ee6b46ab393647c654c325101784d42231941cbf
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Apr 26 13:56:29 2018 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Apr 26 15:43:46 2018 +0200

    Use internal form for "(the ...)" in expansion of `parameterize'
    
    Because `the' now lives in the chicken.type module, we need to use the
    internal version of the form within `parameterize' so that users aren't
    confusingly told they need to import chicken.type without having used
    any values from that module.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 51ef4b69..a0237b57 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -488,8 +488,6 @@
     (##sys#check-syntax 'parameterize form '#(_ 2))
     (let* ((bindings (cadr form))
 	   (body (cddr form))
-	   (the (r 'the))
-	   (boolean (r 'boolean))
 	   (convert? (r 'convert?))
 	   (params (##sys#map car bindings))
 	   (vals (##sys#map cadr bindings))
@@ -506,7 +504,7 @@
 	  ;; value expressions (see first example in #1336).
 	  ,(map ##sys#list saveds saveds)
 	  (##core#let
-	   ((,convert? (,the ,boolean #t))) ; Convert only first time extent is entered!
+	   ((,convert? (##core#the (##core#quote boolean) #t #t))) ; Convert only first time extent is entered!
 	   (##sys#dynamic-wind
 	    (##core#lambda ()
 	      (##core#let