Revert scheme files

Author: runarorama

scheme-libs/racket/unison/pattern.rkt

@@ -44,8 +44,7 @@
           ;; Only valid pattern? in the functions below is p:char
           [char-class-and (-> pattern? pattern? pattern?)]
           [char-class-or (-> pattern? pattern? pattern?)]
-          [char-class-not (-> pattern? pattern?)]
-          [lookbehind1 (-> pattern? pattern?)]))
+          [char-class-not (-> pattern? pattern?)]))
 
 ;; -----------------------------------------------------------------------------
 
@@ -57,9 +56,6 @@
 (struct p:char
   (cpat) ; (or/c 'any (-> char? boolean?))
   #:transparent)
-(struct p:lookbehind1 
-  (cpat) ; (or/c 'any (-> char? boolean?))
-  #:transparent)
 (struct p:literal (cstr) #:transparent)
 (struct p:join (pats) #:transparent)
 (struct p:or (left right) #:transparent)
@@ -136,9 +132,6 @@
 
 (define (lookahead pat) (make-pattern (p:lookahead (pattern-pat pat))))
 
-(define (lookbehind1 cc)
-  (error "pattern lookbehind is not implemented in the native runtime"))
-
 (define (negative-lookahead pat) (make-pattern (p:negative-lookahead (pattern-pat pat))))
 
 (define (capture pat) (make-pattern (p:capture (pattern-pat pat))))
@@ -227,7 +220,7 @@
           (λ (cstr captures)
             (define-values [cstr* captures*] (pat-m cstr captures))
             (if cstr*
-               (ok cstr captures*)
+               (ok cstr captures)
                (fail))
           )
         ]

scheme-libs/racket/unison/primops/pattern.rkt

@@ -74,8 +74,6 @@
   builtin-Text.patterns.anyChar:termlink
   builtin-Text.patterns.char
   builtin-Text.patterns.char:termlink
-  builtin-Text.patterns.lookbehind1
-  builtin-Text.patterns.lookbehind1:termlink
   builtin-Text.patterns.charIn
   builtin-Text.patterns.charIn:termlink
   builtin-Text.patterns.charRange
@@ -180,8 +178,6 @@
 
 (define-unison-builtin (builtin-Text.patterns.char cc) cc)
 
-(define-unison-builtin (builtin-Pattern.lookbehind1 cc) (lookbehind1 cc))
-
 (define-unison-builtin (builtin-Text.patterns.charIn cs)
   (chars cs))