Included patched version of https://github.com/AlexKnauth/hygienic-reader-extension/blob/master/hygienic-reader-extension/extend-reader.rkt

.travis.yml

@@ -6,22 +6,14 @@ env:
   global:
    - RACKET_DIR=~/racket
   matrix:
-   #- RACKET_VERSION=6.1.1
+   - RACKET_VERSION=6.1.1
-   #- RACKET_VERSION=6.2
+   - RACKET_VERSION=6.2
-   #- RACKET_VERSION=6.2.1
+   - RACKET_VERSION=6.2.1
-   #- RACKET_VERSION=6.3
+   - RACKET_VERSION=6.3
    - RACKET_VERSION=6.4
    - RACKET_VERSION=6.5
+   - RACKET_VERSION=6.6
    - RACKET_VERSION=6.7
-   - RACKET_VERSION=6.8
-   - RACKET_VERSION=6.9
-   - RACKET_VERSION=6.10
-   - RACKET_VERSION=6.10.1
-   - RACKET_VERSION=6.11
-   - RACKET_VERSION=6.12
-   - RACKET_VERSION=7.0
-   - RACKET_VERSION=7.1
-   - RACKET_VERSION=7.2
    - RACKET_VERSION=HEAD
 
 matrix:
@@ -40,7 +32,7 @@ install:
 before_script:
 
 script:
- - raco pkg install -j 2 --deps search-auto --link aful
+ - raco pkg install --deps search-auto --link aful
- - raco test -r -p aful
+ - raco test -x -p aful
 
 after_script:

aful/docs/aful.scrbl

@@ -6,16 +6,14 @@
                                 read read-syntax)
                      (except-in aful/reader
                                 read read-syntax)))
-@author[
+
-  "Alex Knauth"
-  @author+email["Suzanne Soy" "racket@suzanne.soy"]]
 @title{aful}
 
 @;; example: @aful-code{(map #λ(+ % 1) '(1 2 3))}
 @(define-syntax-rule @aful-code[stuff ...]
    @code[#:lang "aful racket" stuff ...])
 
-source code: @url["https://github.com/jsmaniac/aful/"]
+source code: @url["https://github.com/AlexKnauth/aful"]
 
 @section{#lang aful}
 

aful/reader.rkt

@@ -19,8 +19,6 @@
          racket/function
          syntax/srcloc
          hygienic-reader-extension/extend-reader
-         "scribble-enhanced.rkt"
-         phc-toolkit/stx
          "unhygienic/hygienic-reader-extension--extend-reader--unhygienic.rkt"
          (for-meta -10 racket/base)
          (for-meta -9 racket/base)
@@ -64,7 +62,7 @@
 (require syntax/strip-context)
 (define ((wrap-reader-unhygienic p) . p-args)
   (strip-context
-   (apply (extend-reader-unhygienic p
+   (apply (extend-reader p
                          (λ ([orig-rt (current-readtable)]
                              #:outer-scope outer-scope
                              #:arg-str [arg-str (current-arg-string)])
@@ -160,14 +158,10 @@
                      [% (string->id stx* arg-str)]
                      [%1 (string->id stx* arg-str "1")]
                      [body stx*])
-         (syntax-property
+         (syntax/loc loc-stx
-          (syntax/top-loc loc-stx
            (lambda args
              (define-syntax % (make-rename-transformer #'%1))
-              body))
+             body))))
-          'scribble-render-as
-          aful-scribble-render)
-         ))
      stx)))
 
 (define (orig stx)

aful/scribble-enhanced.rkt

@@ -1,20 +0,0 @@
-#lang racket
-(provide aful-scribble-render)
-
-(require phc-toolkit/stx)
-
-(define (aful-scribble-render self id code typeset-code uncode d->s stx-prop)
-  (syntax-case self ()
-    [(_ _ _ body)
-     ; #λ(body) reads as:
-     ; (lambda args
-     ;   (define-syntax % (make-rename-transformer #'%1))
-     ;   body)
-     (with-syntax ([uncode (datum->syntax uncode (syntax-e uncode) self)])
-       (syntax/top-loc self
-         ((uncode(let ()
-                   (local-require scribble-enhanced/with-manual)
-                   (seclink "_lang_aful"
-                            #:doc '(lib "aful/docs/aful.scrbl")
-                            (tt "#λ"))))
-          body)))]))

info.rkt

@@ -8,9 +8,6 @@
     "at-exp-lib"
     "rackjure"
     "rackunit-lib"
-    "phc-toolkit"
-    "scribble-enhanced"
-    "scribble-lib"
     ))
 
 (define build-deps
@@ -18,6 +15,5 @@
     "racket-doc"
     "scribble-doc"
     "scribble-code-examples"
-    "scribble-doc"
     ))