From 0c504f2f1abc19ce0bf77bf12b5aee2a7275c7e2 Mon Sep 17 00:00:00 2001 From: Siddhartha Date: Fri, 28 Jun 2024 17:47:44 -0700 Subject: [PATCH] Remove unused utility --- qi-lib/flow/core/private/form-property.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/qi-lib/flow/core/private/form-property.rkt b/qi-lib/flow/core/private/form-property.rkt index 035e4eb7e..c8aba01cf 100644 --- a/qi-lib/flow/core/private/form-property.rkt +++ b/qi-lib/flow/core/private/form-property.rkt @@ -18,8 +18,7 @@ (provide form-position? attach-form-property - tag-form-syntax - get-form-property) + tag-form-syntax) (require (only-in racket/function curry)) @@ -43,9 +42,6 @@ (define (attach-form-property stx) (syntax-property stx 'nonterminal 'floe)) -(define (get-form-property stx) - (syntax-property stx 'nonterminal)) - ;; This traverses a syntax object and indiscriminately tags every node ;; as a form. If this operation were applied to syntax in the real ;; compiler, it would of course lead to the incorrect optimizations we