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) {
that._xhr = new easyXDM.Rpc(
{ remote: that.compilerUrl || 'rpc.html' },
{ remote: { replCompile: {} } });
{ remote: { replCompile: {}, moduleCompile: {} } });
}
return that._xhr;
};

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

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