dev-0.1
Matthew Butterick 9 years ago
parent 69e09fccb0
commit aa0d885a6f

@ -6,24 +6,6 @@
racket/match racket/function) racket/match racket/function)
"../define.rkt") "../define.rkt")
(module+ test
(require rackunit)
(module include-test racket/base
(require sugar/include)
(include-without-lang-line "source.rkt")
(provide included-symbol))
(require 'include-test)
(check-equal? included-symbol 'bar)
(module no-lang-line-include-test racket/base
(require sugar/include)
(include-without-lang-line "no-lang-line-source.txt")
(provide no-lang-symbol))
(require 'no-lang-line-include-test)
(check-equal? no-lang-symbol 'bar))
(provide+safe include-without-lang-line) (provide+safe include-without-lang-line)
(define-syntax (do-include stx) (define-syntax (do-include stx)

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require "define.rkt" racket/set "coerce.rkt") (require "../define.rkt" racket/set "../coerce.rkt")
(define+provide+safe (bytecount->string bytecount) (define+provide+safe (bytecount->string bytecount)

Loading…
Cancel
Save