Fix more typos

diff --git a/library/compiler/x86/alien.factor b/library/compiler/x86/alien.factor
index e3ee5c5492a1220ea46769387593020ba1d7a442..1f8204c87fc757b0657e0c3dbb1c8a54191d9e90 100644 (file)
--- a/library/compiler/x86/alien.factor
+++ b/library/compiler/x86/alien.factor
@@ -27,8 +27,8 @@ M: float-regs pop-return-reg
 M: float-regs load-return-reg
     reg-size >r ESP swap [+] r> FLD ;
 
-M: %unbox generate-node
-    drop 2 input f compile-c-call  1 input push-return-reg ;
+: %unbox ( n reg-class func -- )
+    f %alien-invoke push-return-reg drop ;
 
 : struct-ptr/size ( size func -- )
     ! Load struct size

diff --git a/library/compiler/x86/assembler.factor b/library/compiler/x86/assembler.factor
index 8521eb4aa028622c5af2229dd799dcf790448b18..7ab30b76cba4f9461e3c0d589555658002ae7376 100644 (file)
--- a/library/compiler/x86/assembler.factor
+++ b/library/compiler/x86/assembler.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2005 Slava Pestov.
 ! See http://factor.sf.net/license.txt for BSD license.
-IN: assembler
 USING: arrays compiler errors generic kernel kernel-internals
 lists math namespaces parser sequences words ;
+IN: assembler
 
 ! A postfix assembler for x86 and AMD64.