Add support for better rendering of the #λ in hyper-literate programs and programs which use scribble-enhanced.

aful/reader.rkt

@@ -19,6 +19,8 @@
          racket/function
          syntax/srcloc
          hygienic-reader-extension/extend-reader
+         "scribble-enhanced.rkt"
+         phc-toolkit/stx
          (for-meta -10 racket/base)
          (for-meta -9 racket/base)
          (for-meta -8 racket/base)
@@ -157,10 +159,14 @@
                      [% (string->id stx* arg-str)]
                      [%1 (string->id stx* arg-str "1")]
                      [body stx*])
-         (syntax/loc loc-stx
+         (syntax-property
+          (syntax/top-loc loc-stx
             (lambda args
               (define-syntax % (make-rename-transformer #'%1))
-             body))))
+              body))
+          'scribble-render
+          aful-scribble-render)
+         ))
      stx)))
 
 (define (orig stx)

aful/scribble-enhanced.rkt

@@ -0,0 +1,11 @@
+#lang racket
+(require scribble-enhanced/with-manual)
+
+(provide aful-scribble-render)
+
+(define (aful-scribble-render self)
+  (syntax-case self ()
+    [(_ _ _ body)
+     #`(elem (list (seclink "_lang_aful" #:doc '(lib "aful/docs/aful.scrbl")
+                            (tt "#λ"))
+                   (racket body)))]))