From b09bbfe3c082548347125c0da52104c5bb8049e3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 22 Jan 2018 07:49:19 +0100 Subject: Remove free-ref, free-set! * libguile/vm-engine.c (free-ref, free-set!): Remove ops. * module/language/cps/effects-analysis.scm: * module/system/vm/assembler.scm: * module/system/vm/disassembler.scm (code-annotation): * module/language/cps/compile-bytecode.scm (compile-function): Remove support for free-ref / free-set!. --- module/system/vm/disassembler.scm | 2 -- 1 file changed, 2 deletions(-) (limited to 'module/system/vm/disassembler.scm') diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 8664039f0..286a0f1c5 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -275,8 +275,6 @@ address of that offset." (list "~A" (builtin-index->name idx))) (((or 'static-ref 'static-set!) _ target) (list "~@Y" (dereference-scm target))) - (((or 'free-ref 'free-set!) _ _ index) - (list "free var ~a" index)) (('resolve-module dst name public) (list "~a" (if (zero? public) "private" "public"))) (('toplevel-box _ var-offset mod-offset sym-offset bound?) -- cgit v1.2.3