[Wisp-cvs] wisp/src/native records.nasm,1.30,1.31

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv29292/src/native

Modified Files:
	records.nasm 
Log Message:
Dropped |record-type-referrer|.

Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- records.nasm	18 Sep 2002 21:03:20 -0000	1.30
+++ records.nasm	18 Sep 2002 21:03:54 -0000	1.31
@@ -216,12 +216,6 @@
     mov eax, record_type#discriminator(eax)
     ret
 
-native record_type_referrer, 1
-    pop eax
-    req_record_type
-    mov eax, record_type#ref(eax)
-    ret
-
 extern NN_box_ref
 extern N_apply
 extern N_list