add lambda/this

1 files changed, 0 insertions, 15 deletions

diff --git a/lowlevel.scm b/lowlevel.scm
index 1c338b5..1032534 100644
--- a/lowlevel.scm
+++ b/lowlevel.scm
@@ -109,18 +109,3 @@ C_return(closure);
 (define (make-signifier fxmap)
   ;; Create a signifier pair that can be inserted into the closure.
   (cons unique-symbol fxmap))
-
-(define (set-tagged-mapping proc key value)
-  ;; Return a new closure object that is tagged, has all of its previous
-  ;; tags except that `key` maps to `value`.
-  (cond
-    ((get-mapping proc)
-     => (lambda (oldmap)
-          (set-signifier-pair proc
-                              unique-symbol
-                              (make-signifier
-                               (fxmapping-set oldmap key value)))))
-    ;; get-mapping will test if `proc` is a procedure
-    (else (create/signifier-pair proc (make-signifier
-                                       (fxmapping key value))))))
-