Clean up requires in notes.

Author: dvanhorn

www/notes/abscond.scrbl

@@ -13,9 +13,7 @@
 
 @(define codeblock-include (make-codeblock-include #'here))
 
-@(ev '(require rackunit a86))
-@(for-each (λ (f) (ev `(require (file ,(path->string (build-path langs "abscond" f))))))
-	   '("main.rkt" "correct.rkt"))
+@(ev '(require rackunit a86 abscond abscond/correct))
 
 @(define (shellbox . s)
    (parameterize ([current-directory (build-path langs "abscond")])

www/notes/evildoer.scrbl

@@ -18,12 +18,9 @@
 
 @(define codeblock-include (make-codeblock-include #'h))
 
-@(ev '(require rackunit a86))
-@(for-each (λ (f) (ev `(require (file ,(path->string (build-path langs "evildoer" f))))))
-	   '("main.rkt" "compile-ops.rkt" "correct.rkt"))
-
+@(ev '(require rackunit a86 evildoer evildoer/correct evildoer/compile-ops))
+@;{This is needed for the example that uses current-objs}
 @(ev `(current-directory ,(path->string (build-path langs "evildoer"))))
-@(void (ev '(with-output-to-string (thunk (system "make runtime.o")))))
 
 @(require (for-syntax racket/base))
 @(begin-for-syntax

www/notes/extort.scrbl

@@ -15,12 +15,8 @@
 
 @(define codeblock-include (make-codeblock-include #'h))
 
-@(ev '(require rackunit a86))
-@(for-each (λ (f) (ev `(require (file ,(path->string (build-path langs "extort" f))))))
-	   '("main.rkt" "correct.rkt" "compile-ops.rkt"))
+@(ev '(require rackunit a86 extort extort/compile-ops extort/correct))
 
-@(ev `(current-directory ,(path->string (build-path langs "extort"))))
-@(void (ev '(with-output-to-string (thunk (system "make runtime.o")))))
 @;{Hack to get un-provided functions from compile-ops}
 @(ev '(require (only-in rackunit require/expose)))
 @(ev '(require/expose extort/compile-ops [assert-integer assert-char assert-byte assert-codepoint]))

www/notes/fraud.scrbl

@@ -12,12 +12,7 @@
 
 @(define codeblock-include (make-codeblock-include #'h))
 
-@(ev '(require rackunit a86))
-@(ev `(current-directory ,(path->string (build-path langs "fraud"))))
-@(void (ev '(with-output-to-string (thunk (system "make runtime.o")))))
-@(for-each (λ (f) (ev `(require (file ,f))))
-	   '("main.rkt" "translate.rkt"))
-
+@(ev '(require rackunit a86 fraud fraud/translate))
 
 @(define this-lang "Fraud")
 @(define prefix (string-append this-lang "-"))