added interactions to all but one beginner functions to illustrate what they do

collects/lang/private/intermediate-funs.rkt

@@ -19,6 +19,8 @@
   @defproc[(/ [x number] ...) number]{Divides the first by all remaining numbers.}
   )
  
+; ("Posn" )
+
  ("Lists"
   @defproc[((intermediate-append append) [l (listof any)] ...) (listof any)]{Creates a single list from several, by juxtaposition of the items.})
  

collects/lang/private/provide-and-scribble.rkt

@@ -11,11 +11,6 @@
 
 ;; ---------------------------------------------------------------------------------------------------
 
-;; **********************************************************************************
-;; this needs something like a @defmodule[localname] but perhaps
-;; this should be added when I require the doc submodule
-;; **********************************************************************************
-
 (define-for-syntax *add #f)
 
 (define-syntax-rule 
@@ -133,7 +128,7 @@
                          
                          ;;
                          (define (docs . exceptions)
-                           (define s (reverse *sections))
+                           (define s *sections)
                            (define (is-exception i)
                              (memf (lambda (j) (eq? (syntax-e j) (syntax-e i))) exceptions))
                            (for/fold ((result '())) ((s *sections))

collects/lang/private/sl-eval.rkt

@@ -0,0 +1,95 @@
+#lang racket
+
+(require teachpack/2htdp/scribblings/img-eval racket/sandbox  mzlib/pconvert file/convertible scribble/eval)
+
+(provide
+ ;; syntax: 
+ ;; use with @interaction[#:eval (*sl-eval (define x ...) ...) ...] to create interactive examples 
+ bsl-eval
+ bsl+-eval
+ isl-eval
+ isl+-eval
+ asl-eval)
+
+;; this definition is a pile of hacks accumulated over the course of HtDP/2e writing 
+;; there should be a better and simpler way to get this done 
+(define-syntax-rule
+  (*sl-eval module-lang reader def ...)
+  ;; ===>>>
+  (let ()
+    (define me (make-img-eval))
+    (me '(require (only-in racket empty? first rest cons? sqr true false)))
+    (me '(require lang/posn))
+    (me '(require racket/pretty))
+    (me '(current-print pretty-print-handler))
+    (me '(pretty-print-columns 65))
+    (me 'def)
+    ...
+    (call-in-sandbox-context me (lambda () (error-print-source-location #f)))
+    (call-in-sandbox-context me (lambda () (sandbox-output 'string)))
+    (call-in-sandbox-context me (lambda () (sandbox-error-output 'string)))
+    (call-in-sandbox-context me (lambda ()
+				  (current-print-convert-hook
+				    (let ([prev (current-print-convert-hook)])
+				      ;; tell `print-convert' to leave images as themselves:
+				      (lambda (v basic sub)
+					(if (convertible? v)
+					    v
+					    (prev v basic sub)))))
+
+				  (pretty-print-size-hook
+				    (let ([prev (pretty-print-size-hook)])
+				      ;; tell `pretty-print' that we'll handle images specially:
+				      (lambda (v w? op)
+					(if (convertible? v) 1 (prev v w? op)))))
+				  
+				  (pretty-print-print-hook
+				    (let ([prev (pretty-print-print-hook)])
+				      ;; tell `pretty-print' how to handle images, which is
+				      ;; by using `write-special':
+				      (lambda (v w? op)
+					(if (convertible? v) (write-special v op) (prev v w? op)))))
+
+				  ((dynamic-require 'htdp/bsl/runtime 'configure)
+				   (dynamic-require reader 'options))))
+    (call-in-sandbox-context me (lambda () (namespace-require module-lang)))
+    (interaction-eval #:eval me (require 2htdp/image))
+    (interaction-eval #:eval me (require 2htdp/batch-io))
+    ;; --- splice in the defs
+    me
+    #;
+    (lambda x
+      (with-handlers ([void (lambda (exn . more)
+			      (define msg (exn-message exn))
+			      (define x (get-rewriten-error-message exn))
+			      (define s (open-output-string))
+			      (define y
+				(begin
+				  (parameterize ([current-error-port s])
+				    ((error-display-handler) x 'exn))
+				  (get-output-string s)))
+			      (displayln `(hello ,msg ,exn ,y))
+			      x)])
+	(apply me x)))))
+
+(define-syntax-rule
+  (bsl-eval def ...)
+  (*sl-eval 'lang/htdp-beginner 'htdp/bsl/lang/reader def ...))
+
+(define-syntax-rule
+  (bsl+-eval def ...)
+  (*sl-eval 'lang/htdp-beginner-abbr 'htdp/bsl+/lang/reader def ...))
+
+(define-syntax-rule
+  (isl-eval def ...)
+  (*sl-eval 'lang/htdp-intermediate 'htdp/isl/lang/reader def ...))
+
+(define-syntax-rule 
+  (isl+-eval def ...)
+  (*sl-eval 'lang/htdp-intermediate-lambda 'htdp/isl/lang/reader def ...))
+
+(define-syntax-rule 
+  (asl-eval def ...)
+  (*sl-eval 'lang/htdp-advanced 'htdp/asl/lang/reader def ...))
+
+; (isl-eval+)