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

fix the type of run-ground-dataspace

This commit is contained in:
Sam Caldwell 2020-10-22 16:46:48 -04:00
parent bdf4c30218
commit e5b797b450
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/typed/roles.rkt
View File

@ -577,8 +577,9 @@
[⊢ s ≫ s- (⇒ : t1)] ...
[⊢ (dataspace τ-c.norm s- ...) ≫ _ (⇒ : t2)]
]
#:with τ-out (strip-outbound #'τ-c.norm)
-----------------------------------------------------------------------------------
[⊢ (#%app- syndicate:run-ground s- ...) (⇒ : (AssertionSet τ-c))])
[⊢ (#%app- syndicate:run-ground s- ...) (⇒ : (AssertionSet τ-out))])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utilities