syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

`install-ide-dataspace!`

This commit is contained in:
Tony Garnock-Jones 2016-09-01 11:34:38 +01:00
parent b69c3b3778
commit 1ae40c1ff1
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate-ide/main.rkt
View File

@ -1,6 +1,7 @@
#lang racket/base #lang racket/base
(provide ide-dataspace) (provide ide-dataspace
install-ide-dataspace!)
(require racket/async-channel) (require racket/async-channel)
(require racket/match) (require racket/match)
@ -9,6 +10,7 @@
(require (only-in syndicate seal)) (require (only-in syndicate seal))
(require syndicate/actor) (require syndicate/actor)
(require (only-in syndicate/lang current-ground-dataspace))
(require syndicate/patch) (require syndicate/patch)
(require syndicate/protocol/standard-relay) (require syndicate/protocol/standard-relay)
(require syndicate/ground) (require syndicate/ground)
@ -112,3 +114,9 @@
(trace-notification-type n) (trace-notification-type n)
(trace-notification-sink n)))) (trace-notification-sink n))))
))) )))
(define install-ide-dataspace!
(make-keyword-procedure
(lambda (ks vs . positionals)
(define installed-dataspace (current-ground-dataspace))
(current-ground-dataspace (keyword-apply ide-dataspace ks vs positionals)))))