# HG changeset patch
# User Michael FIG <[EMAIL PROTECTED]>
# Date 1205294755 21600
# Node ID 7c2c8bd7432dfea8252251565251fc0d200a4f28
# Parent 1434c5b13b91fdd9c6326e578f3722ea966e6c09
Documentation fixes.
diff -r 1434c5b13b91 -r 7c2c8bd7432d function/jolt-burg/Compiler.st
--- a/function/jolt-burg/Compiler.st Tue Mar 11 22:05:55 2008 -0600
+++ b/function/jolt-burg/Compiler.st Tue Mar 11 22:05:55 2008 -0600
@@ -628,7 +628,7 @@ Compiler xQuote: expr
Compiler xQuote: expr
[
| literal |
- expr size == 2 ifFalse: [self errorAgumentCount: expr].
+ expr size == 2 ifFalse: [self errorArgumentCount: expr].
literal := expr second.
(literal isSmallInteger or: [literal isNil]) ifFalse: [CompilerLiterals
addLast: literal].
^CNSTP4 new arg: literal
@@ -919,7 +919,7 @@ Compiler xEvaluate: form
Compiler errorUndefined: aSymbol [ self error: 'undefined: ', aSymbol ]
Compiler errorSyntax: form [ self error: 'syntax error: ', form
printString ]
-Compiler errorArgumentCount: form [ self error: 'wrong number of
aguments: ', form printString ]
+Compiler errorArgumentCount: form [ self error: 'wrong number of
arguments: ', form printString ]
Compiler errorLoop: form [ self error: 'no loop: ', form
printString ]
"----------------------------------------------------------------"
diff -r 1434c5b13b91 -r 7c2c8bd7432d function/objects/BlockClosure.st
--- a/function/objects/BlockClosure.st Tue Mar 11 22:05:55 2008 -0600
+++ b/function/objects/BlockClosure.st Tue Mar 11 22:05:55 2008 -0600
@@ -1,4 +1,4 @@
-" BlockClosure.st -- defferred execution of code
+" BlockClosure.st -- deferred execution of code
Copyright (c) 2006, 2007 Ian Piumarta
All rights reserved.
diff -r 1434c5b13b91 -r 7c2c8bd7432d object/id/libid.c
--- a/object/id/libid.c Tue Mar 11 22:05:55 2008 -0600
+++ b/object/id/libid.c Tue Mar 11 22:05:55 2008 -0600
@@ -568,7 +568,7 @@ _"_libid_bind: \n"
" jne __t1 \n" // tagged
" testl %eax, %eax \n"
" je __t0 \n" // nil
-" movl -4(%eax), %edx \n" // edx = recevier.vtable
+" movl -4(%eax), %edx \n" // edx = receiver.vtable
"__tok: movl 4(%esp), %ecx \n" // ecx =
selector
" movl %edx, %eax \n" // eax = vtable
" shll $2, %eax \n" // eax = vtable << 2
@@ -604,7 +604,7 @@ _"_libid_bind:
\n" // r3= selector,
" bne __t1 \n" // tagged
" cmpwi r4, 0 \n"
" beq __t0 \n" // nil
-" lwz r5, -4(r4) \n" // r5 =
recevier.vtable
+" lwz r5, -4(r4) \n" // r5 =
receiver.vtable
"__tok: slwi r6, r5, 4 \n" // r6 =
vtable << 4 (2+2)
" srawi r7, r3, 1 \n" // r7 =
selector >> 1 (3-2)
" xor r6, r6, r7 \n" // r6 = (vtable
<< 2) ^ (selector >> 3)
diff -r 1434c5b13b91 -r 7c2c8bd7432d object/st80/BlockClosure.st
--- a/object/st80/BlockClosure.st Tue Mar 11 22:05:55 2008 -0600
+++ b/object/st80/BlockClosure.st Tue Mar 11 22:05:55 2008 -0600
@@ -23,7 +23,7 @@ StaticBlockClosure : Object ( _function
StaticBlockClosure : Object ( _function _arity ) { pragma: type
staticClosure StaticBlockClosure }
"I represent an optimised closure that has no free references or
- nonlocal returns. I am idenpotent, and therefore allocated once by
+ nonlocal returns. I am idempotent, and therefore allocated once by
the compiler during initialisation and thereafter treated as a
literal."
_______________________________________________
fonc mailing list
fonc@vpri.org
http://vpri.org/mailman/listinfo/fonc
