Changeset 13698

Timestamp:

May 13, 2010, 9:48:04 PM (15 years ago)

Author:

Gary Byers

Message:

Change code in a few unary UUOs.

File:

• branches/arm/lisp-kernel/arm-uuo.s (modified) (1 diff)

branches/arm/lisp-kernel/arm-uuo.s

@@ -82 +82 @@
 define(`uuo_cerror_unbound',`unaryUUO($1,$2,1)')
 define(`uuo_error_not_callable',`unaryUUO($1,$2,2)')
-define(`uuo_tlb_too_small',`unaryUUO($1,$2,4)')
-define(`uuo_error_no_throw_tag',`unaryUUO($1,$2,5)')
+define(`uuo_tlb_too_small',`unaryUUO($1,$2,3)')
+define(`uuo_error_no_throw_tag',`unaryUUO($1,$2,4)')
 
 /* Binary UUOs */