suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[honu] remove old test file

Browse Source
This commit is contained in:
Jon Rafkind 2011-09-06 17:32:28 -06:00
parent 6bf5d43c37
commit 6b2c251b24
1 changed files with 0 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
collects/tests/honu/test.rkt
View File

@ -1,74 +0,0 @@
#lang racket/base
#|
(require
(prefix-in macro_ honu/core/private/macro2)
(rename-in honu/core/private/honu2
[honu-function honu_function]
[honu-+ honu_plus]
[honu-* honu_times]
[honu-/ honu_division]
[honu-- honu_minus])
(rename-in honu/core/private/literals
[honu-= =]
[semicolon |;|])
(rename-in (only-in honu/core/private/honu-typed-scheme honu-var)
[honu-var var])
(for-syntax racket/base
honu/core/private/macro2
syntax/stx
racket/port
syntax/parse
(prefix-in parse: honu/core/private/parse2))
racket/port)
(define-syntax (fake-module-begin stx)
(syntax-case stx ()
[(_ stuff)
(let ()
(define output (parse:parse-all (stx-cdr #'stuff)))
(printf "Output: ~a\n" (syntax->datum output))
output)]))
#;
(fake-module-begin #hx(macro_macro foo (){ x:number }{
withSyntax [z 5]{
syntax(print(x); print(z););
}
}
foo 5))
#;
(fake-module-begin #hx(2))
(fake-module-begin #hx(1;2))
(fake-module-begin #hx(var x = 2;
print(x)))
#|
(let ()
(fake-module-begin #hx(honu_function test(x){
print(x)
}))
(test 5))
(let ()
(fake-module-begin #hx(honu_function test(x){
print(x);
print(x)
}
test(2))))
(let ()
(fake-module-begin #hx(1 honu_plus 1)))
(let ()
(fake-module-begin #hx(1 honu_plus 1 honu_minus 4)))
(let ()
(fake-module-begin #hx(1 honu_plus 1 honu_minus 4 honu_times 8)))
|#
|#