add a file I shoudl have added in an earlier commit (for the drracket read-language docs)

collects/scribblings/tools/doc-util.rkt

@@ -0,0 +1,22 @@
+#lang racket/base
+(require scribble/base
+         scribble/manual)
+(provide language-info-ref
+         language-info-def)
+
+(define-syntax-rule 
+  (language-info-ref id)
+  (language-info-ref/proc (racket id) 'id))
+
+(define (language-info-ref/proc rkt-id sym)
+  (define str (format "~s" sym))
+  (elemref str rkt-id))
+
+(define-syntax-rule
+  (language-info-def id . args)
+  (language-info-def/proc 'id . args))
+
+(define (language-info-def/proc sym . args)
+  (define str (format "~s" sym))
+  (apply elemtag str args))
+