From f02ec48e1612824926694a8b4583de8c7f9d8f10 Mon Sep 17 00:00:00 2001
From: Mike Sperber <sperber@deinprogramm.de>
Date: Sat, 21 Jan 2012 15:43:52 +0100
Subject: [PATCH] Export `read' in DMdA languages.

---
 collects/deinprogramm/DMdA.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/deinprogramm/DMdA.rkt b/collects/deinprogramm/DMdA.rkt
index d9382c29bf..949fef7a4c 100644
--- a/collects/deinprogramm/DMdA.rkt
+++ b/collects/deinprogramm/DMdA.rkt
@@ -356,7 +356,9 @@
   (for-each ((%a -> %b) (list %a) -> unspecific)
 	    "Prozedur von vorn nach hinten auf alle Elemente einer Liste anwenden")
   (apply (procedure (list %a) -> %b)
-	 "Prozedur auf Liste ihrer Argumente anwenden")))
+	 "Prozedur auf Liste ihrer Argumente anwenden")
+  (read (-> any)
+	"Externe Repräsentation eines Werts in der REPL einlesen und den zugehörigen Wert liefern")))
 
 (define (make-pair f r)
   (when (and (not (null? r))