Skip to content

Commit

Permalink
Merge pull request #29 from AlexKnauth/patch-2
Browse files Browse the repository at this point in the history
use make-variable-like-transformer for fv
  • Loading branch information
emina committed Jul 29, 2016
2 parents 4c6a5bb + cb0006e commit 550b9b6
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions rosette/base/core/function.rkt
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
#lang racket

(require racket/generic
(for-syntax syntax/transformer)
"term.rkt" "bool.rkt" "safe.rkt" "union.rkt" "equality.rkt" "merge.rkt"
(only-in "procedure.rkt" @procedure?))

Expand Down Expand Up @@ -105,9 +106,7 @@
(lambda (stx)
(syntax-case stx ()
[(_ pat ...) #'(fv pat ... _)]))
(syntax-id-rules ()
[(_ ios o type) (make-fv ios o type)]
[_ make-fv]))
(make-variable-like-transformer #'make-fv))

(define (@fv? v)
(match v
Expand Down

0 comments on commit 550b9b6

Please sign in to comment.