Skip to content

Commit 550b9b6

Browse files
authored
Merge pull request #29 from AlexKnauth/patch-2
use make-variable-like-transformer for fv
2 parents 4c6a5bb + cb0006e commit 550b9b6

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

rosette/base/core/function.rkt

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
#lang racket
22

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

@@ -105,9 +106,7 @@
105106
(lambda (stx)
106107
(syntax-case stx ()
107108
[(_ pat ...) #'(fv pat ... _)]))
108-
(syntax-id-rules ()
109-
[(_ ios o type) (make-fv ios o type)]
110-
[_ make-fv]))
109+
(make-variable-like-transformer #'make-fv))
111110

112111
(define (@fv? v)
113112
(match v

0 commit comments

Comments
 (0)