exploration

beautiful-racket-lib/br/subscope.rkt

@@ -0,0 +1,34 @@
+#lang br
+(provide (all-defined-out))
+
+(define #'(introduce-scope _color . _parents)
+  (replace-context #'_color
+                   (with-syntax ([color #'_color]
+                                 [color-string (format "~a" (syntax->datum #'_color))]
+                                 [define:color (format-id #f "define:~a" #'_color)]
+                                 [id:color (format-id #f "id:~a" #'_color)]
+                                 [color-binding-id (format-id #f "~a-binding-id" #'_color)]
+                                 [color-binding-form (format-id #f "~a-binding-form" #'_color)]
+                                 [color-id (format-id #f "~a-id" #'_color)]
+                                 [module-name (generate-temporary)]
+                                 [parents (if (pair? (syntax->list #'_parents))
+                                              (car (syntax->list #'_parents))
+                                              (syntax->list #'_parents))])
+                     #'(begin
+                         (module module-name br
+                           (require (for-syntax br/datum br/syntax))
+                           (provide (for-syntax (all-defined-out)) (all-defined-out))
+                           
+                           (begin-for-syntax
+                             (define-scope color parents))
+                           
+                           (define #'(define:color _id-in _expr)
+                             (with-syntax* ([id:color (shared-syntax (format-datum "~a:~a" #'_id-in color-string))]
+                                            [color-binding-id (color-binding-form #'_id-in)]
+                                            [color-id (color #'color-binding-id)])
+                               #'(begin
+                                   (define color-binding-id _expr)
+                                   (define-syntax id:color
+                                     (syntax-id-rules ()
+                                       [_ color-id]))))))
+                         (require 'module-name)))))

beautiful-racket-lib/br/syntax-scopes-test-3.rkt

@@ -0,0 +1,21 @@
+#lang br
+(require "subscope.rkt")
+
+(introduce-scope blue)
+(introduce-scope red)
+
+#;(introduce-scope purple (red blue))
+
+
+(define #'(double-x)
+  (with-blue-identifiers (x)
+                         #'(+ x x)))
+
+
+(define:blue x 50)
+x:blue
+
+(define:red x 42)
+x:red
+
+(double-x)