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

add list to typed rosette

Browse Source
This commit is contained in:
Stephen Chang 2016-07-22 16:47:39 -04:00 committed by AlexKnauth
parent 8b81c93692
commit 541c1e64a9
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
turnstile/examples/rosette/bv.rkt
View File

@ -1,6 +1,8 @@
;#lang turnstile
#lang racket/base
(require (except-in "../../../turnstile/turnstile.rkt" #%module-begin zero? void sub1 or and not add1 = - * + boolean? integer? string? quote pregexp make-parameter equal?)
(require (except-in "../../../turnstile/turnstile.rkt"
#%module-begin
zero? void sub1 or and not add1 = - * + boolean? integer? string? quote pregexp make-parameter equal? list)
(for-syntax (except-in "../../../turnstile/turnstile.rkt")))
(extends "rosette.rkt" ; extends typed rosette
#:except bv bveq bvslt bvult bvsle bvule bvsgt bvugt bvsge bvuge)

4
turnstile/examples/rosette/fsm.rkt
View File

@ -1,6 +1,8 @@
;#lang turnstile
#lang racket/base
(require (except-in "../../../turnstile/turnstile.rkt" #%module-begin zero? void sub1 or and not add1 = - * + boolean? integer? string? quote pregexp make-parameter equal?)
(require (except-in "../../../turnstile/turnstile.rkt"
#%module-begin
zero? void sub1 or and not add1 = - * + boolean? integer? string? quote pregexp make-parameter equal? list)
(for-syntax (except-in "../../../turnstile/turnstile.rkt")))
(extends "rosette.rkt" #:except #%datum #%app) ; extends typed rosette
(require (prefix-in ro: rosette)) ; untyped

10
turnstile/examples/rosette/rosette.rkt
View File

@ -1,11 +1,17 @@
;#lang turnstile
#lang racket/base
;; (require racket/require)
;; (require
;; (except-in
;; (subtract-in "../../../turnstile/turnstile.rkt"
;; (except-in "../ext-stlc.rkt" #%app #%top #%datum))))
(require (except-in "../../../turnstile/turnstile.rkt"
#%module-begin zero? void sub1 or and not add1 = - * + boolean? integer?)
#%module-begin
zero? void sub1 or and not add1 = - * + boolean? integer? list)
(for-syntax (except-in "../../../turnstile/turnstile.rkt")))
(provide (rename-out [ro:#%module-begin #%module-begin]))
(extends "../ext-stlc.rkt" #:except if #%app #%module-begin)
(reuse List #:from "../stlc+cons.rkt")
(reuse List list #:from "../stlc+cons.rkt")
(require (only-in "../stlc+reco+var.rkt" [define stlc:define]))
(require (only-in "../stlc+reco+var.rkt" define-type-alias))
(require (prefix-in ro: rosette))