From c9b706d8663d4e03ba7bbf36957263c9c3f2d1c8 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay.mccarthy@gmail.com>
Date: Mon, 23 Nov 2015 14:41:23 -0500
Subject: [PATCH] Small changes

---
 remix/raw-stx0.rkt | 10 ++++++++--
 remix/stx0.rkt     |  1 -
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/remix/raw-stx0.rkt b/remix/raw-stx0.rkt
index d7d8f85..8f965d4 100644
--- a/remix/raw-stx0.rkt
+++ b/remix/raw-stx0.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
-(require racket/match)
+(require racket/contract/base
+         racket/match)
 
 (define (syntax-strings->input-port name first-ss)
   (define line 1)
@@ -52,4 +53,9 @@
   (make-input-port name read-in #f 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?)]))
diff --git a/remix/stx0.rkt b/remix/stx0.rkt
index 6d7de4f..287f8b0 100644
--- a/remix/stx0.rkt
+++ b/remix/stx0.rkt
@@ -179,7 +179,6 @@
         (syntax/loc stx
           (remix-cut (#%dot bodies ...)))]))])
 
-;; xxx make this more powerful, like super-cut
 (define-syntax-parameter remix-cut-$
   (λ (stx)
     (raise-syntax-error '$ "illegal outside cut" stx)))