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

Small changes

Browse Source
This commit is contained in:
Jay McCarthy 2015-11-23 14:41:23 -05:00
parent 5349767531
commit c9b706d866
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
remix/raw-stx0.rkt
View File

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require racket/match) (require racket/contract/base
racket/match)
(define (syntax-strings->input-port name first-ss) (define (syntax-strings->input-port name first-ss)
(define line 1) (define line 1)
@ -52,4 +53,9 @@
(make-input-port name read-in #f void #f #f (make-input-port name read-in #f void #f #f
get-location void #f #f)) get-location void #f #f))
(provide syntax-strings->input-port) (provide
(contract-out
[syntax-strings->input-port
(-> any/c
(listof syntax?)
input-port?)]))

1
remix/stx0.rkt
View File

@ -179,7 +179,6 @@
(syntax/loc stx (syntax/loc stx
(remix-cut (#%dot bodies ...)))]))]) (remix-cut (#%dot bodies ...)))]))])
;; xxx make this more powerful, like super-cut
(define-syntax-parameter remix-cut-$ (define-syntax-parameter remix-cut-$
(λ (stx) (λ (stx)
(raise-syntax-error '$ "illegal outside cut" stx))) (raise-syntax-error '$ "illegal outside cut" stx)))