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

oops

Browse Source
This commit is contained in:
Danny Yoo 2013-04-08 19:03:30 -06:00
parent 4d00c1bb5e
commit 198b118599
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
whalesong/repl-prototype/htdocs/repl.js
View File

@ -27,7 +27,7 @@
if (! that._xhr) { if (! that._xhr) {
that._xhr = new easyXDM.Rpc( that._xhr = new easyXDM.Rpc(
{ remote: that.compilerUrl || 'rpc.html' }, { remote: that.compilerUrl || 'rpc.html' },
{ remote: { replCompile: {} } }); { remote: { replCompile: {}, moduleCompile: {} } });
} }
return that._xhr; return that._xhr;
}; };

4
whalesong/repl-prototype/server.rkt
View File

@ -115,14 +115,14 @@
(modularize-input-port #:module-name (string->symbol mname) (modularize-input-port #:module-name (string->symbol mname)
#:input-port ip #:input-port ip
#:semantics-module 'whalesong))) #:semantics-module 'whalesong)))
(define program-output-port (open-output-string))[ (define program-output-port (open-output-string))
(package (SexpSource (parameterize ([read-accept-reader #t]) (package (SexpSource (parameterize ([read-accept-reader #t])
(read-syntax source-name program-input-port))) (read-syntax source-name program-input-port)))
#:should-follow-children? (lambda (src) #f) #:should-follow-children? (lambda (src) #f)
#:output-port program-output-port) #:output-port program-output-port)
(write-json (hash 'type "module" (write-json (hash 'type "module"
'module-name (string->symbol mname) 'module-name (string->symbol mname)
'provides () ;; FIXME! 'provides '() ;; FIXME!
'compiledModule (get-output-string program-output-port)) 'compiledModule (get-output-string program-output-port))
op)])) op)]))
(close-output-port op) (close-output-port op)