fix some typos

library/compiler/amd64/load.factor

@@ -10,5 +10,5 @@ USING: io kernel parser sequences ;
     "/library/compiler/x86/fixnum.factor"
     "/library/compiler/amd64/alien.factor"
 ] [
-    dup print run-resource
+    run-resource
 ] each

library/compiler/compiler.factor

@@ -12,7 +12,7 @@ words ;
 
 : (compile) ( word -- )
     #! Should be called inside the with-compiler scope.
-    "! Compiling " write dup . dup word-def precompile generate ;
+    "Compiling " write dup . dup word-def precompile generate ;
 
 : compile-postponed ( -- )
     compile-words get dup empty?

library/compiler/xt.factor

@@ -46,15 +46,15 @@ SYMBOL: relocation-table
 : rel-type, ( arg class type -- )
     #! Write a relocation instruction for the runtime image
     #! loader.
-    >r >r 16 shift r> 8 shift bitor r> bitor rel,
-    cell-just-compiled rel, ;
+    over >r >r >r 16 shift r> 8 shift bitor r> bitor rel,
+    compiled-offset r> rel-absolute-cell = cell 4 ? - rel, ;
 
 : rel-dlsym ( name dll class -- )
     >r cons add-literal compiled-base - cell / r> 1 rel-type, ;
 
 : rel-address ( class -- )
     #! Relocate address just compiled.
-    dup rel-relative = [ 2drop ] [ 0 -rot 2 rel-type, ] if ;
+    dup rel-relative = [ drop ] [ 0 swap 2 rel-type, ] if ;
 
 : rel-word ( word class -- )
     over primitive? [
@@ -65,7 +65,7 @@ SYMBOL: relocation-table
 
 : rel-userenv ( n class -- ) 3 rel-type, ;
 
-: rel-cards ( class -- ) 4 rel-type, ;
+: rel-cards ( class -- ) 0 swap 4 rel-type, ;
 
 ! This is for fixing up forward references
 GENERIC: resolve ( fixup -- addr )

library/help/load.factor

@@ -6,5 +6,5 @@ USING: io kernel parser sequences ;
     "/library/help/help.factor"
     "/library/help/tutorial.factor"
 ] [
-    dup print run-resource
+    run-resource
 ] each

library/syntax/parse-stream.factor

@@ -17,7 +17,7 @@ USING: errors io kernel lists math namespaces sequences words ;
 : parse-stream ( stream name -- quot )
     [ file set file-vocabs lines parse-lines ] with-scope ;
 
-: parsing-file ( file -- ) "! Loading " write print ;
+: parsing-file ( file -- ) "Loading " write print ;
 
 : parse-file ( file -- quot )
     dup parsing-file