misc/vim: some minor fixes.

- fix word definition to have dashes and other printables
- fix private to properly highlight and close the region

.gitattributes

@@ -1,2 +1,3 @@
 *.factor text eol=lf
 *.html text eol=lf
+misc/vim/*/*/generated.vim linguist-generated

LICENSE.txt

@@ -1,4 +1,4 @@
-Copyright (c) 2019, Slava Pestov, et al.
+Copyright (c) 2020, Slava Pestov, et al.
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without

Nmakefile

@@ -58,6 +58,13 @@ CL_FLAGS = $(CL_FLAGS) $(CL_FLAGS_VISTA)
 PLAF_DLL_OBJS = vm\os-windows-x86.64.obj vm\cpu-x86.obj
 SUBSYSTEM_COM_FLAGS = console
 SUBSYSTEM_EXE_FLAGS = windows
+
+!ELSE
+CL_FLAGS = $(CL_FLAGS) $(CL_FLAGS_VISTA)
+PLAF_DLL_OBJS = vm\os-windows-x86.64.obj vm\cpu-x86.obj
+SUBSYSTEM_COM_FLAGS = console
+SUBSYSTEM_EXE_FLAGS = windows
+
 !ENDIF
 
 !IF DEFINED(DEBUG)
@@ -143,6 +150,16 @@ factor.com: $(EXE_OBJS) $(DLL_OBJS)
 factor.exe: $(EXE_OBJS) $(DLL_OBJS)
 	link $(LINK_FLAGS) /out:factor.exe /SUBSYSTEM:$(SUBSYSTEM_EXE_FLAGS) $(EXE_OBJS) $(DLL_OBJS)
 
+# If we compile factor.exe, run mt.exe, and run factor.exe,
+# then Windows caches the manifest. Even on a recompile without applying
+# the mt.exe tool, if the factor.exe.manifest file is present, the manifest
+# is applied. To avoid this, we delete the .manifest file on clean
+# and copy it from a reference file on compilation and mt.exe.
+#
+factor.exe.manifest: factor.exe
+	copy factor.exe.manifest.in factor.exe.manifest
+	mt -manifest factor.exe.manifest -outputresource:"factor.exe;#1"
+
 all: factor.com factor.exe factor.dll.lib libfactor-ffi-test.dll
 
 !ENDIF
@@ -174,12 +191,15 @@ clean:
 	if exist factor.lib del factor.lib
 	if exist factor.com del factor.com
 	if exist factor.exe del factor.exe
+	if exist factor.exe.manifest del factor.exe.manifest
+	if exist factor.exp del factor.exp
 	if exist factor.dll del factor.dll
 	if exist factor.dll.lib del factor.dll.lib
+	if exist factor.dll.exp del factor.dll.exp
 	if exist libfactor-ffi-test.dll del libfactor-ffi-test.dll
 	if exist libfactor-ffi-test.exp del libfactor-ffi-test.exp
 	if exist libfactor-ffi-test.lib del libfactor-ffi-test.lib
 
-.PHONY: all default x86-32 x86-64 x86-32-vista x86-64-vista clean
+.PHONY: all default x86-32 x86-64 x86-32-vista x86-64-vista clean factor.exe.manifest
 
 .SUFFIXES: .rs

README.md

@@ -28,7 +28,7 @@ a boot image stored on factorcode.org.
 
 To check out Factor:
 
-* `git clone git://factorcode.org/git/factor.git`
+* `git clone git://github.com/factor/factor.git`
 * `cd factor`
 
 To build the latest complete Factor system from git, either use the
@@ -38,7 +38,7 @@ build script:
 * Windows: `build.cmd`
 
 or download the correct boot image for your system from
-http://downloads.factorcode.org/images/master/, put it in the factor
+http://downloads.factorcode.org/images/master/, put it in the `factor`
 directory and run:
 
 * Unix: `make` and then `./factor -i=boot.unix-x86.64.image`
@@ -127,6 +127,25 @@ The Factor source tree is organized as follows:
 * `misc/` - editor modes, icons, etc
 * `unmaintained/` - now at [factor-unmaintained](https://github.com/factor/factor-unmaintained)
 
+## Source History
+
+During Factor's lifetime, sourcecode has lived in many repositories. Unfortunately, the first import in Git did not keep history. History has been partially recreated from what could be salvaged. Due to the nature of Git, it's only possible to add history without disturbing upstream work, by using replace objects. These need to be manually fetched, or need to be explicitly added to your git remote configuration.
+
+Use:
+`git fetch origin 'refs/replace/*:refs/replace/*'`
+
+or add the following line to your configuration file
+
+```
+[remote "origin"]
+    url = ...
+    fetch = +refs/heads/*:refs/remotes/origin/*
+    ...
+    fetch = +refs/replace/*:refs/replace/*
+```
+
+Then subsequent fetches will automatically update any replace objects.
+
 ## Community
 
 Factor developers meet in the `#concatenative` channel on

basis/alien/c-types/c-types-docs.factor

@@ -105,7 +105,7 @@ $nl
 ARTICLE: "c-types.primitives" "Primitive C types"
 "The following numerical types are defined in the " { $vocab-link "alien.c-types" } " vocabulary; a " { $snippet "u" } " prefix denotes an unsigned type:"
 { $table
-    { "C type" "Notes" }
+    { { $strong "C type" } { $strong "Notes" } }
     { { $link char } "always 1 byte" }
     { { $link uchar } { } }
     { { $link short } "always 2 bytes" }

basis/alien/data/data-docs.factor

@@ -41,8 +41,8 @@ HELP: memory>byte-array
 
 HELP: cast-array
 { $values { "byte-array" byte-array } { "c-type" "a C type" } { "array" "a specialized array" } }
-{ $description "Converts a byte array into a specialized array by interpreting the bytes in as machine-specific values. Code which uses this word is unportable." }
-{ $notes "The appropriate specialized array vocabulary must be loaded; otherwise, an error will be thrown. See the " { $vocab-link "specialized-arrays" } " vocabulary for details on the underlying sequence type constructed." }
+{ $description "Converts a " { $link byte-array } " into a specialized array by interpreting the bytes in it as machine-specific values. Code using this word is unportable." }
+{ $notes "The appropriate specialized array vocabulary must be loaded, otherwise an error will be thrown. See the " { $vocab-link "specialized-arrays" } " vocabulary for details on the underlying sequence type constructed." }
 { $errors "Throws an error if the type does not exist, the necessary specialized array vocabulary is not loaded, or the requested size is negative." } ;
 
 HELP: malloc-array
@@ -257,4 +257,4 @@ ARTICLE: "c-out-params" "Output parameters in C"
 { $code
   "1234 { c-string } [ do_frob ] with-out-parameters"
 }
-"which would put the functions return value and error string on the stack." ;
+"which would put the function's return value and error string on the stack." ;

basis/alien/libraries/finder/linux/linux-tests.factor

@@ -1,5 +1,4 @@
 USING: alien.libraries.finder sequences tools.test ;
-IN: alien.libraries.finder.linux.tests
 
 { t } [ "libm.so" "m" find-library subseq? ] unit-test
 { t } [ "libc.so" "c" find-library subseq? ] unit-test

basis/alien/libraries/finder/linux/linux.factor

@@ -44,4 +44,4 @@ PRIVATE>
 
 M: linux find-library*
     "lib" prepend load-ldconfig-cache
-    [ ldconfig-matches? ] with find nip ?first ;
+    [ ldconfig-matches? ] with find nip ?last ;

basis/alien/libraries/finder/macosx/macosx-tests.factor

@@ -1,9 +1,6 @@
-
-USING: alien.libraries.finder
+USING: alien.libraries.finder alien.libraries.finder.macosx
 alien.libraries.finder.macosx.private sequences tools.test ;
 
-IN: alien.libraries.finder.macosx
-
 {
     {
         f

basis/alien/libraries/finder/windows/windows-tests.factor

@@ -0,0 +1,3 @@
+USING: alien.libraries.finder sequences tools.test ;
+
+{ t } [ "kernel32.dll" "kernel32" find-library subseq? ] unit-test

basis/alien/libraries/windows/windows.factor

@@ -1,8 +1,9 @@
-USING: alien.libraries io.pathnames system windows.errors ;
+USING: alien.libraries io.pathnames system windows.errors
+windows.kernel32 ;
 IN: alien.libraries.windows
 
 M: windows >deployed-library-path
     file-name ;
 
 M: windows dlerror ( -- message )
-    win32-error-string ;
+    GetLastError n>win32-error-string ;

basis/binary-search/tags.txt

@@ -1 +1,2 @@
 algorithms
+collections

basis/bitstreams/bitstreams.factor

@@ -166,10 +166,10 @@ ERROR: not-enough-bits n bit-reader ;
     bs bytes>> subseq endian> execute( seq -- x )
     n bs subseq-endian execute( bignum n bs -- bits ) ;
 
-M: lsb0-bit-reader peek ( n bs -- bits )
+M: lsb0-bit-reader peek
     \ le> \ subseq>bits-le (peek) ;
 
-M: msb0-bit-reader peek ( n bs -- bits )
+M: msb0-bit-reader peek
     \ be> \ subseq>bits-be (peek) ;
 
 :: bit-writer-bytes ( writer -- bytes )

basis/bootstrap/image/image-docs.factor

@@ -46,7 +46,7 @@ HELP: sub-primitives
 
 ARTICLE: "bootstrap.image" "Bootstrapping new images"
 "A new image can be built from source; this is known as " { $emphasis "bootstrap" } ". Bootstrap is a two-step process. The first stage is the creation of a bootstrap image from a running Factor instance:"
-{ $subsections make-image }
+{ $subsections make-image make-my-image }
 "The second bootstrapping stage is initiated by running the resulting bootstrap image:"
 { $code "./factor -i=boot.x86.32.image" }
 "This stage loads additional code, compiles all words, and creates a final " { $snippet "factor.image" } "."

basis/bootstrap/image/image.factor

@@ -1,15 +1,15 @@
 ! Copyright (C) 2004, 2011 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs byte-arrays classes classes.builtin
-classes.private classes.tuple classes.tuple.private combinators
-combinators.short-circuit combinators.smart
-compiler.codegen.relocation compiler.units fry generic
-generic.single.private grouping hashtables hashtables.private io
-io.binary io.encodings.binary io.files io.pathnames kernel
-kernel.private layouts locals make math math.order namespaces
-namespaces.private parser parser.notes prettyprint quotations
-sequences sequences.private source-files strings system vectors
-vocabs words ;
+USING: accessors arrays assocs byte-arrays classes
+classes.builtin classes.private classes.tuple
+classes.tuple.private combinators combinators.short-circuit
+combinators.smart command-line compiler.codegen.relocation
+compiler.units fry generic generic.single.private grouping
+hashtables hashtables.private io io.binary io.encodings.binary
+io.files io.pathnames kernel kernel.private layouts locals make
+math math.order namespaces namespaces.private parser
+parser.notes prettyprint quotations sequences sequences.private
+source-files strings system vectors vocabs words ;
 IN: bootstrap.image
 
 : arch-name ( os cpu -- arch )
@@ -540,3 +540,8 @@ PRIVATE>
 
 : make-my-image ( -- )
     my-arch-name make-image ;
+
+: make-image-main ( -- )
+    command-line get [ make-my-image ] [ [ make-image ] each ] if-empty ;
+
+MAIN: make-image-main

basis/bootstrap/image/primitives/primitives.factor

@@ -778,8 +778,8 @@ CONSTANT: all-primitives {
     {
         "tools.profiler.sampling.private"
         {
-            { "profiling" ( n -- ) "sampling_profiler" { object } { } f }
-            { "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f }
+            { "set-profiling" ( n -- ) "set_profiling" { object } { } f }
+            { "get-samples" ( -- samples/f ) "get_samples" { } { object } f }
         }
     }
     {

basis/bootstrap/image/upload/upload.factor

@@ -1,10 +1,10 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! Copyright (C) 2015 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: bootstrap.image checksums checksums.openssl cli.git fry
-io io.directories io.encodings.ascii io.encodings.utf8 io.files
+USING: bootstrap.image checksums checksums.openssl fry io
+io.directories io.encodings.ascii io.encodings.utf8 io.files
 io.files.temp io.files.unique io.launcher io.pathnames kernel
-make math.parser namespaces sequences splitting system ;
+make math.parser namespaces sequences splitting system unicode ;
 IN: bootstrap.image.upload
 
 SYMBOL: upload-images-destination
@@ -21,7 +21,11 @@ SYMBOL: build-images-destination
     or ;
 
 : factor-git-branch ( -- name )
-    image-path parent-directory git-current-branch ;
+    image-path parent-directory [
+        { "git" "rev-parse" "--abbrev-ref" "HEAD" }
+        utf8 <process-reader> stream-contents
+        [ blank? ] trim-tail
+    ] with-directory ;
 
 : git-branch-destination ( -- dest )
     build-images-destination get
@@ -43,14 +47,7 @@ SYMBOL: build-images-destination
         ] each
     ] with-file-writer ;
 
-! Windows scp doesn't like pathnames with colons, it treats them as hostnames.
-! Workaround for uploading checksums.txt created with temp-file.
-! e.g. C:\Users\\Doug\\AppData\\Local\\Temp/factorcode.org\\Factor/checksums.txt
-! ssh: Could not resolve hostname c: no address associated with name
-
-HOOK: scp-name os ( -- path )
-M: object scp-name "scp" ;
-M: windows scp-name "pscp" ;
+: scp-name ( -- path ) "scp" ;
 
 : upload-images ( -- )
     [

basis/cache/cache.factor

@@ -38,9 +38,9 @@ M: cache-assoc dispose* clear-assoc ;
 PRIVATE>
 
 : purge-cache ( cache -- )
-    [ assoc>> ] [ max-age>> ] bi V{ } clone [
+    dup [ assoc>> ] [ max-age>> ] bi V{ } clone [
         '[
             nip dup age>> 1 + [ >>age ] keep
             _ < [ drop t ] [ _ dispose-to f ] if
-        ] assoc-filter! drop
+        ] assoc-filter >>assoc drop 
     ] keep [ last rethrow ] unless-empty ;

basis/calendar/calendar.factor

@@ -40,10 +40,10 @@ CONSTANT: day-counts { 0 31 28 31 30 31 30 31 31 30 31 30 31 }
 
 GENERIC: leap-year? ( obj -- ? )
 
-M: integer leap-year? ( year -- ? )
+M: integer leap-year?
     dup 100 divisor? 400 4 ? divisor? ;
 
-M: timestamp leap-year? ( timestamp -- ? )
+M: timestamp leap-year?
     year>> leap-year? ;
 
 : (days-in-month) ( year month -- n )
@@ -121,10 +121,10 @@ GENERIC: easter ( obj -- obj' )
 
     h l + 7 m * - 114 + 31 /mod 1 + ;
 
-M: integer easter ( year -- timestamp )
+M: integer easter
     dup easter-month-day <date> ;
 
-M: timestamp easter ( timestamp -- timestamp )
+M: timestamp easter
     clone
     dup year>> easter-month-day
     swapd >>day swap >>month ;
@@ -167,52 +167,52 @@ GENERIC: +second ( timestamp x -- timestamp )
     { [ day>> 29 = ] [ month>> 2 = ] [ leap-year? not ] } 1&&
     [ 3 >>month 1 >>day ] when ;
 
-M: integer +year ( timestamp n -- timestamp )
+M: integer +year
     [ + ] curry change-year adjust-leap-year ;
 
-M: real +year ( timestamp n -- timestamp )
+M: real +year
     [ float>whole-part swapd days-per-year * +day swap +year ] unless-zero ;
 
 : months/years ( n -- months years )
     12 /rem [ 1 - 12 ] when-zero swap ; inline
 
-M: integer +month ( timestamp n -- timestamp )
+M: integer +month
     [ over month>> + months/years [ >>month ] dip +year ] unless-zero ;
 
-M: real +month ( timestamp n -- timestamp )
+M: real +month
     [ float>whole-part swapd average-month * +day swap +month ] unless-zero ;
 
-M: integer +day ( timestamp n -- timestamp )
+M: integer +day
     [
         over >date< julian-day-number + julian-day-number>date
         [ >>year ] [ >>month ] [ >>day ] tri*
     ] unless-zero ;
 
-M: real +day ( timestamp n -- timestamp )
+M: real +day
     [ float>whole-part swapd 24 * +hour swap +day ] unless-zero ;
 
 : hours/days ( n -- hours days )
     24 /rem swap ;
 
-M: integer +hour ( timestamp n -- timestamp )
+M: integer +hour
     [ over hour>> + hours/days [ >>hour ] dip +day ] unless-zero ;
 
-M: real +hour ( timestamp n -- timestamp )
+M: real +hour
     float>whole-part swapd 60 * +minute swap +hour ;
 
 : minutes/hours ( n -- minutes hours )
     60 /rem swap ;
 
-M: integer +minute ( timestamp n -- timestamp )
+M: integer +minute
     [ over minute>> + minutes/hours [ >>minute ] dip +hour ] unless-zero ;
 
-M: real +minute ( timestamp n -- timestamp )
+M: real +minute
     [ float>whole-part swapd 60 * +second swap +minute ] unless-zero ;
 
 : seconds/minutes ( n -- seconds minutes )
     60 /rem swap >integer ;
 
-M: number +second ( timestamp n -- timestamp )
+M: number +second
     [ over second>> + seconds/minutes [ >>second ] dip +minute ] unless-zero ;
 
 : (time+) ( timestamp duration -- timestamp' duration )
@@ -291,8 +291,7 @@ GENERIC: time- ( time1 time2 -- time3 )
         [ neg +year   0 ] change-year drop
     ] if ;
 
-M: timestamp <=> ( ts1 ts2 -- n )
-    [ >gmt tuple-slots ] compare ;
+M: timestamp <=> [ >gmt tuple-slots ] compare ;
 
 : same-day? ( ts1 ts2 -- ? )
     [ >gmt >date< <date> ] same? ;
@@ -376,8 +375,9 @@ M: duration time-
 
 GENERIC: days-in-year ( obj -- n )
 
-M: integer days-in-year ( year -- n ) leap-year? 366 365 ? ;
-M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
+M: integer days-in-year leap-year? 366 365 ? ;
+
+M: timestamp days-in-year year>> days-in-year ;
 
 : days-in-month ( timestamp -- n )
     >date< drop (days-in-month) ;

basis/calendar/format/format.factor

@@ -52,15 +52,15 @@ MACRO: formatted ( spec -- quot )
 
 GENERIC: day. ( obj -- )
 
-M: integer day. ( n -- )
+M: integer day.
     number>string dup length 2 < [ bl ] when write ;
 
-M: timestamp day. ( timestamp -- )
+M: timestamp day.
     day>> day. ;
 
 GENERIC: month. ( obj -- )
 
-M: array month. ( pair -- )
+M: array month.
     first2
     [ month-name write bl number>string print ]
     [ 1 zeller-congruence ]
@@ -71,15 +71,15 @@ M: array month. ( pair -- )
         1 + + 7 mod zero? [ nl ] [ bl ] if
     ] with each-integer nl ;
 
-M: timestamp month. ( timestamp -- )
+M: timestamp month.
     [ year>> ] [ month>> ] bi 2array month. ;
 
 GENERIC: year. ( obj -- )
 
-M: integer year. ( n -- )
+M: integer year.
     12 [ 1 + 2array month. nl ] with each-integer ;
 
-M: timestamp year. ( timestamp -- )
+M: timestamp year.
     year>> year. ;
 
 : timestamp>mdtm ( timestamp -- str )

basis/calendar/format/tags.txt

@@ -0,0 +1 @@
+time

basis/calendar/unix/unix.factor

@@ -31,7 +31,7 @@ IN: calendar.unix
 : timezone-name ( -- string )
     get-time zone>> ;
 
-M: unix gmt-offset ( -- hours minutes seconds )
+M: unix gmt-offset
     get-time gmtoff>> 3600 /mod 60 /mod ;
 
 : current-timeval ( -- timeval )

basis/calendar/windows/windows.factor

@@ -28,10 +28,10 @@ IN: calendar.windows
         [ [ wSecond>> ] [ wMilliseconds>> 1000 / ] bi + ]
     } cleave instant <timestamp> ;
 
-M: windows gmt-offset ( -- hours minutes seconds )
+M: windows gmt-offset
     TIME_ZONE_INFORMATION <struct>
     dup GetTimeZoneInformation {
-        { TIME_ZONE_ID_INVALID [ win32-error-string throw ] }
+        { TIME_ZONE_ID_INVALID [ win32-error ] }
         { TIME_ZONE_ID_UNKNOWN [ Bias>> ] }
         { TIME_ZONE_ID_STANDARD [ Bias>> ] }
         { TIME_ZONE_ID_DAYLIGHT [ [ Bias>> ] [ DaylightBias>> ] bi + ] }

basis/channels/channels.factor

@@ -31,11 +31,11 @@ GENERIC: from ( channel -- value )
 
 PRIVATE>
 
-M: channel to ( value channel -- )
+M: channel to
     dup receivers>>
     [ dup wait to ] [ nip (to) ] if-empty ;
 
-M: channel from ( channel -- value )
+M: channel from
     [ self ] dip
     notify senders>>
     [ (from) ] unless-empty

basis/channels/remote/remote.factor

@@ -60,10 +60,10 @@ C: <remote-channel> remote-channel
 
 PRIVATE>
 
-M: remote-channel to ( value remote-channel -- )
+M: remote-channel to
     [ id>> swap to-message boa ] keep send-message drop ;
 
-M: remote-channel from ( remote-channel -- value )
+M: remote-channel from
     [ id>> from-message boa ] keep send-message ;
 
 [

basis/checksums/adler-32/adler-32.factor

@@ -8,10 +8,10 @@ SINGLETON: adler-32
 
 CONSTANT: adler-32-modulus 65521
 
-M: adler-32 checksum-bytes ( bytes checksum -- value )
+M: adler-32 checksum-bytes
     drop
     [ sum 1 + ]
-    [ [ dup length [1,b] <reversed> v. ] [ length ] bi + ] bi
+    [ [ dup length [1,b] <reversed> vdot ] [ length ] bi + ] bi
     [ adler-32-modulus mod ] bi@ 16 shift bitor ;
 
 INSTANCE: adler-32 checksum

basis/checksums/bsd/bsd.factor

@@ -5,7 +5,7 @@ IN: checksums.bsd
 
 SINGLETON: bsd
 
-M: bsd checksum-bytes ( bytes checksum -- value )
+M: bsd checksum-bytes
     drop 0 [
         [ [ -1 shift ] [ 1 bitand 15 shift ] bi + ] dip
         + 0xffff bitand

basis/checksums/fnv1/fnv1.factor

@@ -38,67 +38,67 @@ CONSTANT: fnv1-256-basis 0xdd268dbcaac550362d98c384c4e576ccc8b1536847b6bbb31023b
 CONSTANT: fnv1-512-basis 0xb86db0b1171f4416dca1e50f309990acac87d059c90000000000000000000d21e948f68a34c192f62ea79bc942dbe7ce182036415f56e34bac982aac4afe9fd9
 CONSTANT: fnv1-1024-basis 0x5f7a76758ecc4d32e56d5a591028b74b29fc4223fdada16c3bf34eda3674da9a21d9000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c6d7eb6e73802734510a555f256cc005ae556bde8cc9c6a93b21aff4b16c71ee90b3
 
-M: fnv1-32 checksum-bytes ( bytes checksum -- value )
+M: fnv1-32 checksum-bytes
     drop
     fnv1-32-basis swap
     [ swap fnv1-32-prime * bitxor fnv1-32-mod bitand ] each ;
 
-M: fnv1a-32 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-32 checksum-bytes
     drop
     fnv1-32-basis swap
     [ bitxor fnv1-32-prime * fnv1-32-mod bitand ] each ;
 
 
-M: fnv1-64 checksum-bytes ( bytes checksum -- value )
+M: fnv1-64 checksum-bytes
     drop
     fnv1-64-basis swap
     [ swap fnv1-64-prime * bitxor fnv1-64-mod bitand ] each ;
 
-M: fnv1a-64 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-64 checksum-bytes
     drop
     fnv1-64-basis swap
     [ bitxor fnv1-64-prime * fnv1-64-mod bitand ] each ;
 
 
-M: fnv1-128 checksum-bytes ( bytes checksum -- value )
+M: fnv1-128 checksum-bytes
     drop
     fnv1-128-basis swap
     [ swap fnv1-128-prime * bitxor fnv1-128-mod bitand ] each ;
 
-M: fnv1a-128 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-128 checksum-bytes
     drop
     fnv1-128-basis swap
     [ bitxor fnv1-128-prime * fnv1-128-mod bitand ] each ;
 
 
-M: fnv1-256 checksum-bytes ( bytes checksum -- value )
+M: fnv1-256 checksum-bytes
     drop
     fnv1-256-basis swap
     [ swap fnv1-256-prime * bitxor fnv1-256-mod bitand ] each ;
 
-M: fnv1a-256 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-256 checksum-bytes
     drop
     fnv1-256-basis swap
     [ bitxor fnv1-256-prime * fnv1-256-mod bitand ] each ;
 
 
-M: fnv1-512 checksum-bytes ( bytes checksum -- value )
+M: fnv1-512 checksum-bytes
     drop
     fnv1-512-basis swap
     [ swap fnv1-512-prime * bitxor fnv1-512-mod bitand ] each ;
 
-M: fnv1a-512 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-512 checksum-bytes
     drop
     fnv1-512-basis swap
     [ bitxor fnv1-512-prime * fnv1-512-mod bitand ] each ;
 
 
-M: fnv1-1024 checksum-bytes ( bytes checksum -- value )
+M: fnv1-1024 checksum-bytes
     drop
     fnv1-1024-basis swap
     [ swap fnv1-1024-prime * bitxor fnv1-1024-mod bitand ] each ;
 
-M: fnv1a-1024 checksum-bytes ( bytes checksum -- value )
+M: fnv1a-1024 checksum-bytes
     drop
     fnv1-1024-basis swap
     [ bitxor fnv1-1024-prime * fnv1-1024-mod bitand ] each ;

basis/checksums/murmur/murmur.factor

@@ -47,7 +47,7 @@ CONSTANT: n 0xe6546b64
 
 PRIVATE>
 
-M: murmur3-32 checksum-bytes ( bytes checksum -- value )
+M: murmur3-32 checksum-bytes
     seed>> 32 bits main-loop end-case avalanche ;
 
 INSTANCE: murmur3-32 checksum

basis/checksums/openssl/openssl.factor

@@ -38,13 +38,13 @@ M: evp-md-context dispose*
 : set-digest ( name ctx -- )
     handle>> swap digest-named f EVP_DigestInit_ex ssl-error ;
 
-M: openssl-checksum initialize-checksum-state ( checksum -- evp-md-context )
+M: openssl-checksum initialize-checksum-state
     maybe-init-ssl name>> <evp-md-context> [ set-digest ] keep ;
 
-M: evp-md-context add-checksum-bytes ( ctx bytes -- ctx' )
+M: evp-md-context add-checksum-bytes
     [ dup handle>> ] dip dup length EVP_DigestUpdate ssl-error ;
 
-M: evp-md-context get-checksum ( ctx -- value )
+M: evp-md-context get-checksum
     handle>>
     { { int EVP_MAX_MD_SIZE } int }
     [ EVP_DigestFinal_ex ssl-error ] with-out-parameters

basis/classes/struct/prettyprint/prettyprint.factor

@@ -116,7 +116,7 @@ M: struct-mirror delete-at
 M: struct-mirror clear-assoc
     object>> reset-struct-slots ;
 
-M: struct-mirror >alist ( mirror -- alist )
+M: struct-mirror >alist
     object>> [
         [ drop "underlying" ] [ >c-ptr ] bi 2array 1array
     ] [

basis/colors/cmyk/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/constants/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/gray/gray.factor

@@ -7,7 +7,7 @@ TUPLE: gray < color { gray read-only } { alpha read-only } ;
 
 C: <gray> gray
 
-M: gray >rgba ( gray -- rgba )
+M: gray >rgba
     [ gray>> dup dup ] [ alpha>> ] bi <rgba> ; inline
 
 M: gray red>> gray>> ;

basis/colors/gray/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/hex/hex.factor

@@ -6,12 +6,15 @@ lexer math math.parser sequences ;
 
 IN: colors.hex
 
+ERROR: invalid-hex-color hex ;
+
 : hex>rgba ( hex -- rgba )
     dup length {
         { 6 [ 2 group [ hex> 255 /f ] map first3 1.0 ] }
         { 8 [ 2 group [ hex> 255 /f ] map first4 ] }
         { 3 [ [ digit> 15 /f ] { } map-as first3 1.0 ] }
         { 4 [ [ digit> 15 /f ] { } map-as first4 ] }
+        [ drop invalid-hex-color ]
     } case <rgba> ;
 
 : rgba>hex ( rgba -- hex )

basis/colors/hex/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/hsl/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/hsv/hsv.factor

@@ -29,7 +29,7 @@ C: <hsva> hsva
 
 PRIVATE>
 
-M: hsva >rgba ( hsva -- rgba )
+M: hsva >rgba
     [
         dup Hi
         {

basis/colors/hsv/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/lab/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/lch/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/luv/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/mix/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/ryb/ryb.factor

@@ -61,7 +61,7 @@ C: <ryba> ryba
 
 PRIVATE>
 
-M: ryba >rgba ( ryba -- rgba )
+M: ryba >rgba
     [
         [ red>> ] [ yellow>> ] [ blue>> ] tri
         [ ryb>rgb ] normalized

basis/colors/ryb/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/xyy/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/xyz/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/yiq/tags.txt

@@ -0,0 +1 @@
+colors

basis/colors/yuv/tags.txt

@@ -0,0 +1 @@
+colors

basis/command-line/command-line-docs.factor

@@ -1,11 +1,11 @@
-USING: help.markup help.syntax strings system vocabs vocabs.loader ;
+USING: help.markup help.syntax io.pathnames strings system vocabs vocabs.loader ;
 IN: command-line
 
 HELP: run-bootstrap-init
-{ $description "Runs the bootstrap initialization file in the user's home directory, unless the " { $snippet "-no-user-init" } " command line switch was given. This file is named " { $snippet ".factor-boot-rc" } "." } ;
+{ $description "Runs the bootstrap initialization file in the user's " { $link home } " directory, unless the " { $snippet "-no-user-init" } " command line switch was given. This file is named " { $snippet ".factor-boot-rc" } "." } ;
 
 HELP: run-user-init
-{ $description "Runs the startup initialization file in the user's home directory, unless the " { $snippet "-no-user-init" } " command line switch was given. This file is named " { $snippet ".factor-rc" } "." } ;
+{ $description "Runs the startup initialization file in the user's " { $link home } " directory, unless the " { $snippet "-no-user-init" } " command line switch was given. This file is named " { $snippet ".factor-rc" } "." } ;
 
 HELP: load-vocab-roots
 { $description "Loads the newline-separated list of additional vocabulary roots from the file named " { $snippet ".factor-roots" } "." } ;
@@ -117,7 +117,7 @@ $nl
 { $subsections load-vocab-roots } ;
 
 ARTICLE: "rc-files" "Running code on startup"
-"Factor looks for three optional files in your home directory."
+"Factor looks for three optional files in the user's " { $link home } " directory."
 { $subsections
     ".factor-boot-rc"
     ".factor-rc"
@@ -125,12 +125,6 @@ ARTICLE: "rc-files" "Running code on startup"
 }
 "The " { $snippet "-no-user-init" } " command line switch will inhibit loading running of these files."
 $nl
-"If you are unsure where the files should be located, evaluate the following code:"
-{ $code
-    "USE: command-line"
-    "\".factor-rc\" rc-path print"
-    "\".factor-boot-rc\" rc-path print"
-}
 "Here is an example " { $snippet ".factor-boot-rc" } " which sets up your developer name:"
 { $code
     "USING: tools.scaffold namespaces ;"
@@ -139,8 +133,8 @@ $nl
 
 ARTICLE: "command-line" "Command line arguments"
 "Factor command line usage:"
-{ $code "factor [VM args...] [script] [args...]" }
-"Zero or more VM arguments can be passed in, followed by an optional script file name. If the script file is specified, it will be run on startup using " { $link run-script } ". Any arguments after the script file are stored in the following variable, with no further processing by Factor itself:"
+{ $code "factor [options] [script] [arguments]" }
+"Zero or more options can be passed in, followed by an optional script file name. If the script file is specified, it will be run on startup using " { $link run-script } ". Any arguments after the script file are stored in the following variable, with no further processing by Factor itself:"
 { $subsections command-line }
 "Instead of running a script, it is also possible to run a vocabulary; this invokes the vocabulary's " { $link POSTPONE: MAIN: } " word:"
 { $code "factor [system switches...] -run=<vocab name>" }

basis/command-line/command-line.factor

@@ -24,9 +24,6 @@ SYMBOL: command-line
 : (command-line) ( -- args )
     OBJ-ARGS special-object sift [ alien>native-string ] map ;
 
-: rc-path ( name -- path )
-    home prepend-path ;
-
 : try-user-init ( file -- )
     "user-init" get swap '[
         _ [ ?run-file ] [
@@ -37,14 +34,14 @@ SYMBOL: command-line
     ] when ;
 
 : run-bootstrap-init ( -- )
-    ".factor-boot-rc" rc-path try-user-init ;
+    "~/.factor-boot-rc" try-user-init ;
 
 : run-user-init ( -- )
-    ".factor-rc" rc-path try-user-init ;
+    "~/.factor-rc" try-user-init ;
 
 : load-vocab-roots ( -- )
     "user-init" get [
-        ".factor-roots" rc-path dup exists? [
+        "~/.factor-roots" dup exists? [
             utf8 file-lines harvest [ add-vocab-root ] each
         ] [ drop ] if
         "roots" get [

basis/command-line/startup/startup.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2011 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: combinators command-line eval io io.pathnames kernel
-namespaces system vocabs.loader ;
+layouts math math.parser namespaces system vocabs.loader ;
 IN: command-line.startup
 
 : help? ( -- ? )
@@ -9,35 +9,33 @@ IN: command-line.startup
     os windows? [ script get "/?" = or ] when ;
 
 : help. ( -- )
-"Usage: " write vm-path file-name write " [Factor arguments] [script] [script arguments]
+"Usage: " write vm-path file-name write " [options] [script] [arguments]
 
-Factor arguments:
+Options:
     -help               print this message and exit
     -version            print the Factor version and exit
-    -i=<image>          load Factor image file <image> (default " write vm-path file-stem write ".image)
+    -i=<image>          load Factor image file <image> [" write vm-path file-stem write ".image]
     -run=<vocab>        run the MAIN: entry point of <vocab>
         -run=listener   run terminal listener
         -run=ui.tools   run Factor development UI
     -e=<code>           evaluate <code>
     -no-user-init       suppress loading of .factor-rc
-    -datastack=<int>    datastack size in KiB
-    -retainstack=<int>  retainstack size in KiB
-    -callstack=<int>    callstack size in KiB
-    -callbacks=<int>    callback heap size in KiB
-    -young=<int>        young gc generation 0 size in MiB
-    -aging=<int>        aging gc generation 1 size in MiB
-    -tenured=<int>      tenured gc generation 2 size in MiB
-    -codeheap=<int>     codeheap size in MiB
-    -pic=<int>          max pic size
+    -datastack=<int>    datastack size in KiB [" write cell 32 * number>string write "]
+    -retainstack=<int>  retainstack size in KiB [" write cell 32 * number>string write "]
+    -callstack=<int>    callstack size in KiB [" write cell cpu ppc? 256 128 ? * number>string write "]
+    -callbacks=<int>    callback heap size in KiB [256]
+    -young=<int>        young gc generation 0 size in MiB [" write cell 4 / number>string write "]
+    -aging=<int>        aging gc generation 1 size in MiB [" write cell 2 / number>string write "]
+    -tenured=<int>      tenured gc generation 2 size in MiB [" write cell 24 * number>string write "]
+    -codeheap=<int>     codeheap size in MiB [64]
+    -pic=<int>          max pic size [3]
     -fep                enter fep mode immediately
     -no-signals         turn off OS signal handling
-    -console            open console if possible
-    -roots=<paths>      a list of \"" write os windows? ";" ":" ? write "\"-delimited extra vocab roots
+    -roots=<paths>      '" write os windows? ";" ":" ? write "'-separated list of extra vocab root directories
 
 Enter
     \"command-line\" help
 from within Factor for more information.
-
 " write ;
 
 : version? ( -- ? ) "version" get ;

basis/compiler/cfg/builder/alien/alien.factor

@@ -15,6 +15,8 @@ IN: compiler.cfg.builder.alien
         0 stack-params set
         V{ } clone reg-values set
         V{ } clone stack-values set
+        0 int-reg-reps set
+        0 float-reg-reps set
         @
         reg-values get
         stack-values get
@@ -93,7 +95,7 @@ IN: compiler.cfg.builder.alien
         [ stack-params get [ caller-stack-cleanup ] keep ]
     } cleave ;
 
-M: #alien-invoke emit-node ( block node -- block' )
+M: #alien-invoke emit-node
     params>>
     [
         [ params>alien-insn-params ]
@@ -102,7 +104,7 @@ M: #alien-invoke emit-node ( block node -- block' )
     ]
     [ caller-return ] bi ;
 
-M: #alien-indirect emit-node ( block node -- block' )
+M: #alien-indirect emit-node
     params>>
     [
         [ ds-pop ^^unbox-any-c-ptr ] dip
@@ -111,7 +113,7 @@ M: #alien-indirect emit-node ( block node -- block' )
     ]
     [ caller-return ] bi ;
 
-M: #alien-assembly emit-node ( block node -- block' )
+M: #alien-assembly emit-node
     params>>
     [
         [ params>alien-insn-params ]
@@ -165,7 +167,7 @@ M: #alien-assembly emit-node ( block node -- block' )
 : emit-callback-outputs ( block params -- )
     [ emit-callback-return ] keep callback-stack-cleanup ;
 
-M: #alien-callback emit-node ( block node -- block' )
+M: #alien-callback emit-node
     dup params>> xt>> dup
     [
         t cfg get frame-pointer?<<

basis/compiler/cfg/builder/alien/boxing/boxing.factor

@@ -10,19 +10,30 @@ IN: compiler.cfg.builder.alien.boxing
 
 SYMBOL: struct-return-area
 
+SYMBOLS: int-reg-reps float-reg-reps ;
+
+: reg-reps ( reps -- int-reps float-reps )
+    [ second ] reject [ [ first int-rep? ] count ] [ length over - ] bi ;
+
+: record-reg-reps ( reps -- reps )            
+    dup reg-reps [ int-reg-reps +@ ] [ float-reg-reps +@ ] bi* ;
+
+: unrecord-reg-reps ( reps -- reps )
+    dup reg-reps [ neg int-reg-reps +@ ] [ neg float-reg-reps +@ ] bi* ;
+
 GENERIC: flatten-c-type ( c-type -- pairs )
 
 M: c-type flatten-c-type
-    rep>> f f 3array 1array ;
+    rep>> f f 3array 1array record-reg-reps ;
 
 M: long-long-type flatten-c-type
-    drop 2 [ int-rep long-long-on-stack? f 3array ] replicate ;
+    drop 2 [ int-rep long-long-on-stack? f 3array ] replicate record-reg-reps ;
 
 HOOK: flatten-struct-type cpu ( type -- pairs )
 HOOK: flatten-struct-type-return cpu ( type -- pairs )
 
 M: object flatten-struct-type
-    heap-size cell align cell /i { int-rep f f } <array> ;
+    heap-size cell align cell /i { int-rep f f } <array> record-reg-reps ;
 
 M: struct-c-type flatten-c-type
     flatten-struct-type ;
@@ -70,14 +81,14 @@ M: c-type unbox
             [ swap ^^unbox ]
         } case 1array
     ]
-    [ drop f f 3array 1array ] 2bi ;
+    [ drop f f 3array 1array ] 2bi record-reg-reps ;
 
 M: long-long-type unbox
     [ next-vreg next-vreg 2dup ] 2dip unboxer>> ##unbox-long-long, 2array
     int-rep long-long-on-stack? long-long-odd-register? 3array
-    int-rep long-long-on-stack? f 3array 2array ;
+    int-rep long-long-on-stack? f 3array 2array record-reg-reps ;
 
-M: struct-c-type unbox ( src c-type -- vregs reps )
+M: struct-c-type unbox
     [ ^^unbox-any-c-ptr ] dip explode-struct ;
 
 : frob-struct ( c-type -- c-type )

basis/compiler/cfg/builder/alien/params/params.factor

@@ -8,11 +8,11 @@ SYMBOL: stack-params
 
 GENERIC: alloc-stack-param ( rep -- n )
 
-M: object alloc-stack-param ( rep -- n )
+M: object alloc-stack-param
     stack-params get
     [ rep-size cell align stack-params +@ ] dip ;
 
-M: float-rep alloc-stack-param ( rep -- n )
+M: float-rep alloc-stack-param
     stack-params get swap rep-size
     [ cell align stack-params +@ ] keep
     float-right-align-on-stack? [ + ] [ drop ] if ;

basis/compiler/cfg/builder/builder.factor

@@ -71,7 +71,7 @@ GENERIC: emit-node ( block node -- block' )
     ##branch, [ begin-basic-block ] dip
     [ label>> id>> loops get set-at ] [ child>> emit-nodes ] 2bi ;
 
-M: #recursive emit-node ( block node -- block' )
+M: #recursive emit-node
     dup label>> loop?>> [ emit-loop ] [ emit-recursive ] if ;
 
 ! #if
@@ -109,28 +109,28 @@ M: #recursive emit-node ( block node -- block' )
     ! loc>vreg sync
     ds-pop any-rep ^^copy f cc/= ##compare-imm-branch, emit-if ;
 
-M: #if emit-node ( block node -- block' )
+M: #if emit-node
     {
         { [ dup trivial-if? ] [ drop emit-trivial-if ] }
         { [ dup trivial-not-if? ] [ drop emit-trivial-not-if ] }
         [ emit-actual-if ]
     } cond ;
 
-M: #dispatch emit-node ( block node -- block' )
+M: #dispatch emit-node
     ! Inputs to the final instruction need to be copied because of
     ! loc>vreg sync. ^^offset>slot always returns a fresh vreg,
     ! though.
     ds-pop ^^offset>slot next-vreg ##dispatch, emit-if ;
 
-M: #call emit-node ( block node -- block' )
+M: #call emit-node
     dup word>> dup "intrinsic" word-prop [
         nip call( block #call -- block' )
     ] [ swap call-height emit-call ] if* ;
 
-M: #call-recursive emit-node ( block node -- block' )
+M: #call-recursive emit-node
     [ label>> id>> ] [ call-height ] bi emit-call ;
 
-M: #push emit-node ( block node -- block )
+M: #push emit-node
     literal>> ^^load-literal ds-push ;
 
 ! #shuffle
@@ -157,7 +157,7 @@ M: #push emit-node ( block node -- block )
     [ make-input-map ] [ mapping>> ] [ extract-outputs ] tri
     [ [ of of peek-loc ] 2with map ] 2with map ;
 
-M: #shuffle emit-node ( block node -- block )
+M: #shuffle emit-node
     [ out-vregs/stack ] keep store-height-changes
     first2 [ ds-loc store-vregs ] [ rs-loc store-vregs ] bi* ;
 
@@ -167,14 +167,14 @@ M: #shuffle emit-node ( block node -- block )
     t >>kill-block?
     ##safepoint, ##epilogue, ##return, ;
 
-M: #return emit-node ( block node -- block' )
+M: #return emit-node
     drop end-word ;
 
-M: #return-recursive emit-node ( block node -- block' )
+M: #return-recursive emit-node
     label>> id>> loops get key? [ ] [ end-word ] if ;
 
 ! #terminate
-M: #terminate emit-node ( block node -- block' )
+M: #terminate emit-node
     drop ##no-tco, end-basic-block f ;
 
 ! No-op nodes

basis/compiler/cfg/cfg-docs.factor

@@ -7,41 +7,41 @@ IN: compiler.cfg
 HELP: basic-block
 { $class-description
   "Factors representation of a basic block in the Call Flow Graph (CFG). A basic block is a sequence of instructions that always are executed sequentially and doesn't contain any internal branching. It has the following slots:"
-  { $table
+  { $slots
     {
-        { $slot "number" }
+        "number"
         { "The blocks sequence number. Generated by calling " { $link number-blocks } "." }
     }
     {
-        { $slot "successors" }
+        "successors"
         { "A " { $link vector } " of basic blocks that may be executed directly after this block. Most blocks only have one successor but a block that checks where an if-condition should branch to would have two for example." }
     }
     {
-        { $slot "predecessors" }
+        "predecessors"
         { "The opposite of successors -- a " { $link vector } " of basic blocks from which the execution may have arrived into this block." }
     }
     {
-        { $slot "instructions" }
+        "instructions"
         { "A " { $link vector } " of " { $link insn } " tuples which form the instructions of the basic block." }
     }
     {
-        { $slot "kill-block?" }
+        "kill-block?"
         { "The first and the last block in a cfg and all blocks containing " { $link ##call } " instructions are kill blocks. Kill blocks can't be optimized so they are omitted from certain optimization steps." }
     }
     {
-        { $slot "height" }
+        "height"
         "Block's height as a " { $link height-state } ". What the heights of the block was at entry and how much they were increased in the block."
     }
     {
-        { $slot "replaces" }
+        "replaces"
         { "Used by " { $vocab-link "compiler.cfg.stacks.local" } " for local stack analysis." }
     }
     {
-        { $slot "peeks" }
+        "peeks"
         { "Used by " { $vocab-link "compiler.cfg.stacks.local" } " for local stack analysis." }
     }
     {
-        { $slot "kills" }
+        "kills"
         { "Used by " { $vocab-link "compiler.cfg.stacks.local" } " for local stack analysis." }
     }
   }
@@ -60,12 +60,12 @@ HELP: <cfg>
 HELP: cfg
 { $class-description
   "Call flow graph. It has the following slots:"
-  { $table
-    { { $slot "entry" } { "Root " { $link basic-block } " of the graph." } }
-    { { $slot "word" } { "The " { $link word } " the cfg is produced from." } }
-    { { $slot "post-order" } { "The blocks of the cfg in a post order traversal " { $link sequence } "." } }
-    { { $slot "stack-frame" } { { $link stack-frame } " of the cfg." } }
-    { { $slot "frame-pointer?" } { "Whether the cfg needs a frame pointer. Only cfgs generated for " { $link #alien-callback } " nodes does need it. If the slot is " { $link t } ", then the frame pointer register (" { $link RBP } " on x86.64 archs) will not be clobbered by register allocation. See " { $vocab-link "compiler.cfg.linear-scan" } " for details." } }
+  { $slots
+    { "entry" { "Root " { $link basic-block } " of the graph." } }
+    { "word" { "The " { $link word } " the cfg is produced from." } }
+    { "post-order" { "The blocks of the cfg in a post order traversal " { $link sequence } "." } }
+    { "stack-frame" { { $link stack-frame } " of the cfg." } }
+    { "frame-pointer?" { "Whether the cfg needs a frame pointer. Only cfgs generated for " { $link #alien-callback } " nodes does need it. If the slot is " { $link t } ", then the frame pointer register (" { $link RBP } " on x86.64 archs) will not be clobbered by register allocation. See " { $vocab-link "compiler.cfg.linear-scan" } " for details." } }
   }
 }
 { $see-also <cfg> post-order } ;

basis/compiler/cfg/instructions/instructions-docs.factor

@@ -9,27 +9,27 @@ IN: compiler.cfg.instructions
 HELP: ##alien-invoke
 { $class-description
   "An instruction for calling a function in a dynamically linked library. It has the following slots:"
-  { $table
+  { $slots
     {
-        { $slot "dead-outputs" }
+        "dead-outputs"
         { "A sequence of return values from the function that the compiler.cfg.dce pass has figured out are not used." }
     }
     {
-        { $slot "reg-inputs" }
+        "reg-inputs"
         { "Registers to use for the arguments to the function call. Each sequence item is a 3-tuple consisting of a " { $link spill-slot } ", register representation and a register. When the function is called, the parameter is copied from the spill slot to the given register." }
     }
     {
-        { $slot "stack-inputs" }
+        "stack-inputs"
         { "Stack slots used for the arguments to the function call." }
     }
     {
-        { $slot "reg-outputs" }
+        "reg-outputs"
         { "If the called function returns a value, then this slot is a one-element sequence containing a 3-tuple describing which register is used for the return value." }
     }
-    { { $slot "symbols" } { "Name of the function to call." } }
-    { { $slot "dll" } { "A dll handle or " { $link f } "." } }
+    { "symbols" { "Name of the function to call." } }
+    { "dll" { "A dll handle or " { $link f } "." } }
     {
-        { $slot "gc-map" }
+        "gc-map"
         {
             "If the invoked C function calls Factor code which triggers a GC, then a "
             { $link gc-map }
@@ -44,9 +44,9 @@ HELP: ##alien-invoke
 HELP: ##alien-indirect
 { $class-description
   "An instruction representing an indirect alien call. The first item on the datastack is a pointer to the function to call and the parameters follows. It has the following slots:"
-  { $table
-    { { $slot "src" } { "Spill slot containing the function pointer." } }
-    { { $slot "reg-outputs" } { "Sequence of output values passed in registers." } }
+  { $slots
+    { "src" { "Spill slot containing the function pointer." } }
+    { "reg-outputs" { "Sequence of output values passed in registers." } }
   }
 }
 { $see-also alien-indirect %alien-indirect } ;
@@ -54,11 +54,11 @@ HELP: ##alien-indirect
 HELP: ##allot
 { $class-description
   "An instruction for allocating memory in the nursery. Usually the instruction is preceded by " { $link ##check-nursery-branch } " which checks that there is enough room in the nursery to allocate. It has the following slots:"
-  { $table
-    { { $slot "dst" } { "Register to put the pointer to the memory in." } }
-    { { $slot "size" } { "Number of bytes to allocate." } }
-    { { $slot "class-of" } { "Class of object to allocate, e.g " { $link tuple } " or " { $link array } "." } }
-    { { $slot "temp" } { "Temporary register to clobber." } }
+  { $slots
+    { "dst" { "Register to put the pointer to the memory in." } }
+    { "size" { "Number of bytes to allocate." } }
+    { "class-of" { "Class of object to allocate, e.g " { $link tuple } " or " { $link array } "." } }
+    { "temp" { "Temporary register to clobber." } }
   }
 } ;
 
@@ -79,8 +79,8 @@ HELP: ##box-alien
 HELP: ##call
 { $class-description
   "An instruction for calling a Factor word."
-  { $table
-    { { $slot "word" } { "The word called." } }
+  { $slots
+    { "word" { "The word called." } }
   }
 } ;
 
@@ -89,11 +89,11 @@ HELP: ##check-nursery-branch
   "Instruction that inserts a conditional branch to a " { $link basic-block } " that garbage collects the nursery. The " { $vocab-link "compiler.cfg.gc-checks" } " vocab goes through each block in the " { $link cfg } " and checks if it allocates memory. If it does, then this instruction is inserted in the cfg before that block and checks if there is enough available space in the nursery. If it isn't, then a basic block containing code for garbage collecting the nursery is executed."
   $nl
   "It has the following slots:"
-  { $table
-    { { $slot "size" } { "Number of bytes the next block in the cfg will allocate." } }
-    { { $slot "cc" } { "A comparison symbol." } }
-    { { $slot "temp1" } { "First register that will be clobbered." } }
-    { { $slot "temp2" } { "Second register that will be clobbered." } }
+  { $slots
+    { "size" { "Number of bytes the next block in the cfg will allocate." } }
+    { "cc" { "A comparison symbol." } }
+    { "temp1" { "First register that will be clobbered." } }
+    { "temp2" { "Second register that will be clobbered." } }
   }
 }
 { $see-also %check-nursery-branch } ;
@@ -101,8 +101,8 @@ HELP: ##check-nursery-branch
 HELP: ##compare-float-ordered-branch
 { $class-description
   "It has the following slots:"
-  { $table
-    { { $slot "cc" } { "Comparison symbol." } }
+  { $slots
+    { "cc" { "Comparison symbol." } }
   }
 } ;
 
@@ -119,8 +119,8 @@ HELP: ##compare-integer
 
 HELP: ##copy
 { $class-description "Instruction that copies a value from one register to another of the same type. For example, you can copy between two gprs or two simd registers but not across. It has the following slots:"
-  { $table
-    { { $slot "rep" } { "Value representation. Both the source and destination register must have the same representation." } }
+  { $slots
+    { "rep" { "Value representation. Both the source and destination register must have the same representation." } }
   }
 } ;
 
@@ -139,8 +139,8 @@ HELP: ##inc
 HELP: ##jump
 { $class-description
   "An uncondiation jump instruction. It has the following slots:"
-  { $table
-    { { $slot "word" } { "Word whose address the instruction is jumping to." } }
+  { $slots
+    { "word" { "Word whose address the instruction is jumping to." } }
   }
   "Note that the optimizer is sometimes able to optimize away a " { $link ##call } " and " { $link ##return } " pair into one ##jump instruction."
 } ;
@@ -156,9 +156,9 @@ HELP: ##load-memory-imm
 HELP: ##load-reference
 { $class-description
   "An instruction for loading a pointer to an object into a register. It has the following slots:"
-  { $table
-    { { $slot "dst" } { "Register to load the pointer into." } }
-    { { $slot "obj" } { "A Factor object." } }
+  { $slots
+    { "dst" { "Register to load the pointer into." } }
+    { "obj" { "A Factor object." } }
   }
 } ;
 
@@ -174,10 +174,10 @@ HELP: ##load-vector
 HELP: ##local-allot
 { $class-description
   "An instruction for allocating memory in the words own stack frame. It's mostly used for receiving data from alien calls. It has the following slots:"
-  { $table
-    { { $slot "dst" } { "Register into which a pointer to the stack allocated memory is put." } }
-    { { $slot "size" } { "Number of bytes to allocate." } }
-    { { $slot "offset" } { } }
+  { $slots
+    { "dst" { "Register into which a pointer to the stack allocated memory is put." } }
+    { "size" { "Number of bytes to allocate." } }
+    { "offset" { } }
   }
 }
 { $see-also ##allot } ;
@@ -191,8 +191,8 @@ HELP: ##no-tco
 
 HELP: ##parallel-copy
 { $class-description "An instruction for performing multiple copies. It allows for optimizations or (or prunings) if more than one source or destination vreg is the same. They are transformed into " { $link ##copy } " instructions in " { $link destruct-ssa } ". It has the following slots:"
-  { $table
-    { { $slot "values" } { "An assoc mapping source vregs to destinations." } }
+  { $slots
+    { "values" { "An assoc mapping source vregs to destinations." } }
   }
 } ;
 
@@ -205,9 +205,9 @@ HELP: ##peek
 HELP: ##phi
 { $class-description
   "A special kind of instruction used to mark control flow. It is inserted by the " { $vocab-link "compiler.cfg.ssa.construction" } " vocab. It has the following slots:"
-  { $table
-    { { $slot "inputs" } { "An assoc containing as keys the blocks/block numbers where the vreg was defined and as values the vreg. Why care about the blocks?" } }
-    { { $slot "dst" } { "A merged vreg for the value." } }
+  { $slots
+    { "inputs" { "An assoc containing as keys the blocks/block numbers where the vreg was defined and as values the vreg. Why care about the blocks?" } }
+    { "dst" { "A merged vreg for the value." } }
   }
 } ;
 
@@ -241,22 +241,22 @@ HELP: ##save-context
 HELP: ##set-slot
 { $class-description
   "An instruction for the non-primitive, non-immediate variant of " { $link set-slot } ". It has the following slots:"
-  { $table
-    { { $slot "src" } { "Object to put in the slot." } }
-    { { $slot "obj" } { "Object to set the slot on." } }
-    { { $slot "slot" } { "Slot index." } }
-    { { $slot "tag" } { "Type tag for obj." } }
+  { $slots
+    { "src" { "Object to put in the slot." } }
+    { "obj" { "Object to set the slot on." } }
+    { "slot" { "Slot index." } }
+    { "tag" { "Type tag for obj." } }
   }
 } ;
 
 HELP: ##set-slot-imm
 { $class-description
   "An instruction for what? It has the following slots:"
-  { $table
-    { { $slot "src" } { "Register containing the value to put in the slot." } }
-    { { $slot "obj" } { "Register containing the object to set the slot on.." } }
-    { { $slot "slot" } { "Slot index." } }
-    { { $slot "tag" } { "Type tag for obj." } }
+  { $slots
+    { "src" { "Register containing the value to put in the slot." } }
+    { "obj" { "Register containing the object to set the slot on.." } }
+    { "slot" { "Slot index." } }
+    { "tag" { "Type tag for obj." } }
   }
 }
 { $see-also ##set-slot %set-slot-imm } ;
@@ -268,10 +268,10 @@ HELP: ##single>double-float
 
 HELP: ##shuffle-vector-imm
 { $class-description "Shuffles the vector in a SSE register according to the given shuffle pattern. It is used to extract a given element of the vector."
-  { $table
-    { { $slot "dst" } { "Destination register to shuffle the vector to." } }
-    { { $slot "src" } { "Source register." } }
-    { { $slot "shuffle" } { "Shuffling pattern." } }
+  { $slots
+    { "dst" { "Destination register to shuffle the vector to." } }
+    { "src" { "Source register." } }
+    { "shuffle" { "Shuffling pattern." } }
   }
 }
 { $see-also %shuffle-vector-imm } ;
@@ -279,31 +279,31 @@ HELP: ##shuffle-vector-imm
 HELP: ##slot-imm
 { $class-description
   "Instruction for reading a slot with a given index from an object."
-  { $table
-    { { $slot "dst" } { "Register to read the slot value into." } }
-    { { $slot "obj" } { "Register containing the object with the slot." } }
-    { { $slot "slot" } { "Slot index." } }
-    { { $slot "tag" } { "Type tag for obj." } }
+  { $slots
+    { "dst" { "Register to read the slot value into." } }
+    { "obj" { "Register containing the object with the slot." } }
+    { "slot" { "Slot index." } }
+    { "tag" { "Type tag for obj." } }
   }
 } { $see-also %slot-imm } ;
 
 HELP: ##spill
 { $class-description "Instruction that copies a value from a register to a " { $link spill-slot } "."
-  { $table
-    { { $slot "rep" } { "Register representation which is necessary when spilling SIMD registers." } }
+  { $slots
+    { "rep" { "Register representation which is necessary when spilling SIMD registers." } }
   }
 } { $see-also ##reload } ;
 
 HELP: ##store-memory-imm
 { $class-description "Instruction that copies an 8 byte value from a XMM register to a memory location addressed by a normal register. This instruction is often turned into a cheaper " { $link ##store-memory } " instruction in the " { $link value-numbering } " pass."
-  { $table
-    { { $slot "base" } { "Vreg that contains the base address." } }
+  { $slots
+    { "base" { "Vreg that contains the base address." } }
     {
-        { $slot "offset" }
+        "offset"
         { "Offset in bytes from the address to where the data should be written." }
     }
-    { { $slot "rep" } { "Value representation in the vector register." } }
-    { { $slot "src" } { "Vreg that contains the item to set." } }
+    { "rep" { "Value representation in the vector register." } }
+    { "src" { "Vreg that contains the item to set." } }
   }
 }
 { $see-also %store-memory-imm } ;
@@ -314,9 +314,9 @@ HELP: ##test-branch
 
 HELP: ##unbox-any-c-ptr
 { $class-description "Instruction that unboxes a pointer in a register so that it can be fed to a C FFI function. For example, if 'src' points to a " { $link byte-array } ", then in 'dst' will be put a pointer to the first byte of that byte array."
-  { $table
-    { { $slot "dst" } { "Destination register." } }
-    { { $slot "src" } { "Source register." } }
+  { $slots
+    { "dst" { "Destination register." } }
+    { "src" { "Source register." } }
   }
 }
 { $see-also %unbox-any-c-ptr } ;
@@ -327,10 +327,10 @@ HELP: ##unbox-long-long
 HELP: ##vector>scalar
 { $class-description
   "This instruction is very similar to " { $link ##copy } "."
-  { $table
-    { { $slot "dst" } { "destination vreg" } }
-    { { $slot "src" } { "source vreg" } }
-    { { $slot "rep" } { "representation for the source vreg" } }
+  { $slots
+    { "dst" { "destination vreg" } }
+    { "src" { "source vreg" } }
+    { "rep" { "representation for the source vreg" } }
   }
 }
 { $notes "The two vregs must not necessarily share the same representation." }
@@ -338,9 +338,9 @@ HELP: ##vector>scalar
 
 HELP: ##vm-field
 { $class-description "Instruction for loading a pointer to a vm field."
-  { $table
-    { { $slot "dst" } { "Register to load the field into." } }
-    { { $slot "offset" } { "Offset of the field relative to the vm address." } }
+  { $slots
+    { "dst" { "Register to load the field into." } }
+    { "offset" { "Offset of the field relative to the vm address." } }
   }
 }
 { $see-also %vm-field } ;
@@ -348,13 +348,13 @@ HELP: ##vm-field
 HELP: ##write-barrier
 { $class-description
   "An instruction for inserting a write barrier. This instruction is almost always inserted after a " { $link ##set-slot } " instruction. If the container object is in an older generation than the item inserted, this instruction guarantees that the item will not be garbage collected. It has the following slots:"
-  { $table
-    { { $slot "src" } { "Object to which the writer barrier refers." } }
-    { { $slot "slot" } { "Slot index of the object." } }
-    { { $slot "scale" } { "No idea." } }
-    { { $slot "tag" } { "Type tag for obj." } }
-    { { $slot "temp1" } { "First temporary register to clobber." } }
-    { { $slot "temp2" } { "Second temporary register to clobber." } }
+  { $slots
+    { "src" { "Object to which the writer barrier refers." } }
+    { "slot" { "Slot index of the object." } }
+    { "scale" { "No idea." } }
+    { "tag" { "Type tag for obj." } }
+    { "temp1" { "First temporary register to clobber." } }
+    { "temp2" { "Second temporary register to clobber." } }
   }
 } ;
 
@@ -396,13 +396,13 @@ HELP: gc-map-insn
 
 HELP: gc-map
 { $class-description "A tuple that holds info necessary for a gc cycle to figure out where the gc root pointers are. It has the following slots:"
-  { $table
+  { $slots
     {
-        { $slot "gc-roots" }
+        "gc-roots"
         { { $link sequence } " of vregs or spill-slots" }
     }
     {
-        { $slot "derived-roots" }
+        "derived-roots"
         { "An " { $link assoc } " of pairs of vregs or spill slots." } }
   }
   "The 'gc-roots' and 'derived-roots' slots are initially vreg integers referencing objects that are live during the gc call and needs to be spilled so that they can be traced. In the " { $link emit-gc-map-insn } " word in " { $vocab-link "compiler.cfg.linear-scan.assignment" } " they are converted to spill slots which the collector is able to trace."

basis/compiler/cfg/intrinsics/simd/simd-tests.factor

@@ -238,13 +238,13 @@ M: horizontal-cpu %horizontal-add-vector-reps signed-reps ;
 M: horizontal-cpu %unpack-vector-head-reps signed-reps ;
 M: horizontal-cpu %unpack-vector-tail-reps signed-reps ;
 
-! v.
+! vdot
 { { ##dot-vector } }
-[ dot-cpu float-4-rep [ emit-simd-v. ] test-emit ]
+[ dot-cpu float-4-rep [ emit-simd-vdot ] test-emit ]
 unit-test
 
 { { ##mul-vector ##horizontal-add-vector ##horizontal-add-vector ##vector>scalar } }
-[ horizontal-cpu float-4-rep [ emit-simd-v. ] test-emit ]
+[ horizontal-cpu float-4-rep [ emit-simd-vdot ] test-emit ]
 unit-test
 
 { {
@@ -253,7 +253,7 @@ unit-test
     ##merge-vector-head ##merge-vector-tail ##add-vector
     ##vector>scalar
 } }
-[ simple-ops-cpu float-4-rep [ emit-simd-v. ] test-emit ]
+[ simple-ops-cpu float-4-rep [ emit-simd-vdot ] test-emit ]
 unit-test
 
 ! vsqrt

basis/compiler/cfg/intrinsics/simd/simd.factor

@@ -417,7 +417,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
         ] }
     } emit-vv-vector-op ;
 
-: emit-simd-v. ( node -- )
+: emit-simd-vdot ( node -- )
     {
         [ ^^dot-vector ]
         { float-vector-rep [ [ ^^mul-vector ] [ ^sum-vector ] bi ] }
@@ -667,7 +667,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
         { (simd-vmin)               [ emit-simd-vmin                ] }
         { (simd-vmax)               [ emit-simd-vmax                ] }
         { (simd-vavg)               [ emit-simd-vavg                ] }
-        { (simd-v.)                 [ emit-simd-v.                  ] }
+        { (simd-vdot)               [ emit-simd-vdot                ] }
         { (simd-vsad)               [ emit-simd-vsad                ] }
         { (simd-vsqrt)              [ emit-simd-vsqrt               ] }
         { (simd-sum)                [ emit-simd-sum                 ] }

basis/compiler/cfg/linear-scan/live-intervals/live-intervals-docs.factor

@@ -76,26 +76,27 @@ HELP: last-use?
 
 HELP: live-interval-state
 { $class-description "A class encoding the \"liveness\" of a virtual register. It has the following slots:"
-  { $table
-    { { $slot "vreg" } { "The vreg this live interval state is bound to." } }
+  { $slots
+    { "vreg" { "The vreg this live interval state is bound to." } }
     {
-        { $slot "reg" }
+        "reg"
         { "The allocated register, set in the " { $link allocate-registers } " step." }
     }
     {
-        { $slot "spill-rep" }
+        "spill-rep"
         { { $link representation } " the vreg will have when it is spilled." }
     }
     {
-        { $slot "spill-to" }
+        "spill-to"
         { { $link spill-slot } " to use for spilling, if it needs to be spilled." }
     }
     {
-        { $slot "ranges" }
+        "ranges"
         { "Inclusive ranges where the live interval is live. This is because the [start,end] interval can have gaps." }
     }
     {
-        { $slot "uses" } { "sequence of insn# numbers which reference insructions that use the register in the live interval." }
+        "uses"
+        { "sequence of insn# numbers which reference insructions that use the register in the live interval." }
     }
   }
 }
@@ -118,9 +119,9 @@ HELP: record-temp
 
 HELP: sync-point
 { $class-description "A location where all live registers have to be spilled. For example when garbage collection is run or an alien ffi call is invoked. Figuring out where in the " { $link cfg } " the sync points are is done in the " { $link compute-live-intervals } " step. The tuple has the following slots:"
-  { $table
-    { { $slot "n" } { "Set from an instructions sequence number." } }
-    { { $slot "keep-dst?" } { "Boolean that determines whether registers are spilled around this sync point." } }
+  { $slots
+    { "n" { "Set from an instructions sequence number." } }
+    { "keep-dst?" { "Boolean that determines whether registers are spilled around this sync point." } }
   }
 }
 { $see-also cfg>sync-points clobber-insn hairy-clobber-insn insn } ;

basis/compiler/cfg/liveness/liveness.factor

@@ -35,7 +35,7 @@ GENERIC: visit-insn ( live-set insn -- )
 : gen-uses ( live-set insn -- )
     uses-vregs [ swap conjoin ] with each ; inline
 
-M: vreg-insn visit-insn ( live-set insn -- )
+M: vreg-insn visit-insn
     [ kill-defs ] [ gen-uses ] 2bi ;
 
 DEFER: lookup-base-pointer
@@ -98,7 +98,7 @@ M: vreg-insn lookup-base-pointer* 2drop f ;
 : fill-gc-map ( live-set gc-map -- )
     [ gc-roots ] dip [ gc-roots<< ] [ derived-roots<< ] bi ;
 
-M: gc-map-insn visit-insn ( live-set insn -- )
+M: gc-map-insn visit-insn
     [ kill-defs ] [ gc-map>> fill-gc-map ] [ gen-uses ] 2tri ;
 
 M: ##phi visit-insn kill-defs ;

basis/compiler/cfg/ssa/interference/interference-docs.factor

@@ -8,9 +8,9 @@ HELP: sets-interfere?
 HELP: vreg-info
 { $class-description
   "Slots:"
-  { $table
-    { { $slot "vreg" } { "The vreg the vreg-info is the info for." } }
-    { { $slot "bb" } { "The " { $link basic-block } " in which the vreg is defined." } }
+  { $slots
+    { "vreg" { "The vreg the vreg-info is the info for." } }
+    { "bb" { "The " { $link basic-block } " in which the vreg is defined." } }
   }
 } ;
 

basis/compiler/cfg/stack-frame/stack-frame-docs.factor

@@ -11,15 +11,15 @@ HELP: stack-frame
     { "One final " { $link cell } " of padding." }
   }
   "The stack frame is also aligned to a 16 byte boundary. It has the following slots:"
-  { $table
-    { { $slot "total-size" } { "Total size of the stack frame." } }
-    { { $slot "params" } { "Reserved parameter space." } }
-    { { $slot "allot-area-base" } { "Base offset of the allocation area." } }
-    { { $slot "allot-area-size" } { "Number of bytes requires for the allocation area." } }
-    { { $slot "allot-area-align" } { "This slot is always at least " { $link cell } " bytes." } }
-    { { $slot "spill-area-base" } { "Base offset for the spill area." } }
-    { { $slot "spill-area-size" } { "Number of bytes requires for all spill slots." } }
-    { { $slot "spill-area-align" } { "This slot is always at least " { $link cell } " bytes." } }
+  { $slots
+    { "total-size" { "Total size of the stack frame." } }
+    { "params" { "Reserved parameter space." } }
+    { "allot-area-base" { "Base offset of the allocation area." } }
+    { "allot-area-size" { "Number of bytes requires for the allocation area." } }
+    { "allot-area-align" { "This slot is always at least " { $link cell } " bytes." } }
+    { "spill-area-base" { "Base offset for the spill area." } }
+    { "spill-area-size" { "Number of bytes requires for all spill slots." } }
+    { "spill-area-align" { "This slot is always at least " { $link cell } " bytes." } }
   }
 }
 { $see-also align-stack } ;

basis/compiler/cfg/stacks/local/local-docs.factor

@@ -29,21 +29,21 @@ HELP: global-loc>local
 
 HELP: height-state
 { $description "A tuple which keeps track of the stacks heights and increments of a " { $link basic-block } " during local analysis. The idea is that if the stack change instructions are tracked, then multiple changes can be folded into one. It has the following slots:"
-  { $table
+  { $slots
     {
-        { $slot "ds-begin" }
+        "ds-begin"
         "Datastack height at the beginning of the block."
     }
     {
-        { $slot "rs-begin" }
+        "rs-begin"
         "Retainstack height at the beginning of the block."
     }
     {
-        { $slot "ds-inc" }
+        "ds-inc"
         "Datastack change during the block."
     }
     {
-        { $slot "rs-inc" }
+        "rs-inc"
         "Retainstack change during the block."
     }
   }
@@ -103,10 +103,10 @@ HELP: replaces
 
 ARTICLE: "compiler.cfg.stacks.local" "Local stack analysis"
 "For each " { $link basic-block } " in the " { $link cfg } ", local stack analysis is performed. The analysis is started right after the block is created with " { $link begin-local-analysis } " and finished with " { $link end-local-analysis } ", when the construction of the block is complete. During the analysis, three sets containing stack locations are built:"
-{ $list
-  { { $slot "peeks" } " all stack locations that the block reads before writing" }
-  { { $slot "replaces" } " all stack locations that the block writes" }
-  { { $slot "kills" } " all stack locations which become unavailable after the block ends because of the stack height being decremented. For example, if the block contains " { $link drop } ", then D: 0 will be contained in kills because that stack location will not be live anymore." }
+{ $slots
+  { "peeks" { " all stack locations that the block reads before writing" } }
+  { "replaces" { " all stack locations that the block writes" } }
+  { "kills" { " all stack locations which become unavailable after the block ends because of the stack height being decremented. For example, if the block contains " { $link drop } ", then D: 0 will be contained in kills because that stack location will not be live anymore." } }
 }
 "This is done while constructing the CFG. These sets are then used by the " { $link end-stack-analysis } " word to emit optimal sequences of " { $link ##peek } " and " { $link ##replace } " instructions to the cfg."
 $nl

basis/compiler/errors/errors.factor

@@ -33,7 +33,7 @@ T{ error-type-holder
    { type +compiler-error+ }
    { word ":errors" }
    { plural "compiler errors" }
-   { icon "vocab:ui/tools/error-list/icons/compiler-error.tiff" }
+   { icon "vocab:ui/tools/error-list/icons/compiler-error.png" }
    { quot [ compiler-errors get values ] }
    { forget-quot [ compiler-errors get delete-at ] }
 } define-error-type
@@ -51,7 +51,7 @@ T{ error-type-holder
    { type +linkage-error+ }
    { word ":linkage" }
    { plural "linkage errors" }
-   { icon "vocab:ui/tools/error-list/icons/linkage-error.tiff" }
+   { icon "vocab:ui/tools/error-list/icons/linkage-error.png" }
    { quot [ linkage-errors get values ] }
    { forget-quot [ linkage-errors get delete-at ] }
    { fatal? f }
@@ -77,7 +77,7 @@ T{ error-type-holder
     { type +user-init-error+ }
     { word ":user-init-errors" }
     { plural "rc file errors" }
-    { icon "vocab:ui/tools/error-list/icons/user-init-error.tiff" }
+    { icon "vocab:ui/tools/error-list/icons/user-init-error.png" }
     { quot [ user-init-errors get-global values ] }
     { forget-quot [ user-init-errors get-global delete-at ] }
 } define-error-type

basis/compiler/tests/alien.factor

@@ -2,7 +2,7 @@ USING: accessors alien alien.c-types alien.complex alien.data alien.libraries
 alien.syntax arrays byte-arrays classes classes.struct combinators
 combinators.extras compiler compiler.test concurrency.promises continuations
 destructors effects generalizations io io.backend io.pathnames
-io.streams.string kernel kernel.private libc layouts math math.bitwise
+io.streams.string kernel kernel.private libc layouts locals math math.bitwise
 math.private memory namespaces namespaces.private random parser quotations
 sequences slots.private specialized-arrays stack-checker stack-checker.errors
 system threads tools.test words ;
@@ -963,3 +963,117 @@ FUNCTION: void* bug1021_test_3 ( c-string a )
 { } [
     10000 [ 0 doit 33 assert= ] times
 ] unit-test
+
+! Tests for System V AMD64 ABI 
+STRUCT: test_struct_66 { mem1 ulong } { mem2 ulong } ;
+STRUCT: test_struct_68 { mem1 ulong } { mem2 ulong } { mem3 ulong } ;
+STRUCT: test_struct_69 { mem1 float } { mem2 ulong } { mem3 ulong } ;
+FUNCTION: ulong ffi_test_66 ( ulong a, ulong b, ulong c, test_struct_66 d, test_struct_66 e )
+FUNCTION: ulong ffi_test_67 ( ulong a, ulong b, ulong c, test_struct_66 d, test_struct_66 e ulong _f )
+FUNCTION: ulong ffi_test_68 ( ulong a, ulong b, ulong c, test_struct_66 d, test_struct_68 e test_struct_66 _f )
+FUNCTION: ulong ffi_test_69 ( ulong a, ulong b, ulong c, test_struct_66 d, test_struct_69 e test_struct_66 _f )
+FUNCTION: ulong ffi_test_70 ( test_struct_68 a test_struct_68 b, test_struct_66 c )  
+
+{ 28 } [ 1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_66 f 6 7 } ffi_test_66 ] unit-test
+
+: callback-14 ( -- callback )
+    ulong { ulong ulong ulong test_struct_66 test_struct_66 } cdecl
+    [| a b c d e |
+        a b + c +
+        d [ mem1>> + ] [ mem2>> + ] bi
+        e [ mem1>> + ] [ mem2>> + ] bi
+    ] alien-callback ;
+
+: callback-14-test ( a b c d e callback -- result )
+    ulong { ulong ulong ulong test_struct_66 test_struct_66 } cdecl alien-indirect ;
+
+{ 28 } [
+    1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_66 f 6 7 } callback-14 [
+        callback-14-test
+    ] with-callback
+] unit-test
+
+{ 44 } [ 1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_66 f 6 7 } 8 ffi_test_67 ] unit-test
+
+: callback-15 ( -- callback )
+    ulong { ulong ulong ulong test_struct_66 test_struct_66 ulong } cdecl
+    [| a b c d e _f |
+        a b + c +
+        d [ mem1>> + ] [ mem2>> + ] bi
+        e [ mem1>> + ] [ mem2>> + ] bi
+        _f 2 * + 
+    ] alien-callback ;
+
+: callback-15-test ( a b c d e _f callback -- result )
+    ulong { ulong ulong ulong test_struct_66 test_struct_66 ulong } cdecl alien-indirect ;
+
+{ 44 } [
+    1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_66 f 6 7 } 8 callback-15 [
+        callback-15-test
+    ] with-callback
+] unit-test
+
+{ 55 } [
+    1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_68 f 6 7 8 } S{ test_struct_66 f 9 10 } ffi_test_68
+] unit-test
+
+: callback-16 ( -- callback )
+    ulong { ulong ulong ulong test_struct_66 test_struct_68 test_struct_66 } cdecl
+    [| a b c d e _f |
+        a b + c +
+        d [ mem1>> + ] [ mem2>> + ] bi
+        e [ mem1>> + ] [ mem2>> + ] [ mem3>> + ] tri
+        _f [ mem1>> + ] [ mem2>> + ] bi
+    ] alien-callback ;
+
+: callback-16-test ( a b c d e _f callback -- result )
+    ulong { ulong ulong ulong test_struct_66 test_struct_68 test_struct_66 } cdecl alien-indirect ;
+
+{ 55 } [
+    1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_68 f 6 7 8 } S{ test_struct_66 f 9 10 } callback-16 [
+        callback-16-test
+    ] with-callback
+] unit-test
+
+{ 55 } [
+   1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_69 f 6.0 7 8 } S{ test_struct_66 f 9 10 } ffi_test_69
+] unit-test
+
+: callback-17 ( -- callback )
+    ulong { ulong ulong ulong test_struct_66 test_struct_69 test_struct_66 } cdecl
+    [| a b c d e _f |
+        a b + c +
+        d [ mem1>> + ] [ mem2>> + ] bi
+        e [ mem1>> >integer + ] [ mem2>> + ] [ mem3>> + ] tri
+        _f [ mem1>> + ] [ mem2>> + ] bi
+    ] alien-callback ;
+
+: callback-17-test ( a b c d e _f callback -- result )
+    ulong { ulong ulong ulong test_struct_66 test_struct_69 test_struct_66 } cdecl alien-indirect ;
+
+{ 55 } [
+    1 2 3 S{ test_struct_66 f 4 5 } S{ test_struct_69 f 6.0 7 8 } S{ test_struct_66 f 9 10 } callback-17 [
+        callback-17-test
+    ] with-callback
+] unit-test
+
+{ 36 } [
+    S{ test_struct_68 f 1 2 3 } S{ test_struct_68 f 4 5 6 } S{ test_struct_66 f 7 8 } ffi_test_70
+] unit-test
+
+: callback-18 ( -- callback )
+    ulong { test_struct_68 test_struct_68 test_struct_66 } cdecl
+    [| a b c |
+        a [ mem1>> ] [ mem2>> + ] [ mem3>> + ] tri     
+        b [ mem1>> + ] [ mem2>> + ] [ mem3>> + ] tri
+        c [ mem1>> + ] [ mem2>> + ] bi
+    ] alien-callback ;
+
+: callback-18-test ( a b c callback -- result )
+    ulong { test_struct_68 test_struct_68 test_struct_66 } cdecl alien-indirect ;
+
+{ 36 } [
+    S{ test_struct_68 f 1 2 3 } S{ test_struct_68 f 4 5 6 } S{ test_struct_66 f 7 8 } callback-18 [
+        callback-18-test
+    ] with-callback
+] unit-test

basis/compiler/tree/escape-analysis/branches/branches.factor

@@ -9,7 +9,7 @@ IN: compiler.tree.escape-analysis.branches
 
 M: #branch escape-analysis*
     [ in-d>> add-escaping-values ]
-    [ live-children sift [ (escape-analysis) ] each ]
+    [ live-children [ [ (escape-analysis) ] when* ] each ]
     bi ;
 
 : (merge-allocations) ( values -- allocation )

basis/compiler/tree/propagation/constraints/constraints.factor

@@ -34,7 +34,7 @@ M: true-constraint satisfied?
 
 TUPLE: false-constraint value ;
 
-: =f ( value -- constriant ) resolve-copy false-constraint boa ;
+: =f ( value -- constraint ) resolve-copy false-constraint boa ;
 
 M: false-constraint assume*
     [ \ f <class-info> swap value>> refine-value-info ]

basis/compiler/tree/propagation/info/info-docs.factor

@@ -28,17 +28,17 @@ HELP: value-info
 { $description "Gets the value info for the given SSA value. If none is found then a null empty interval is returned." } ;
 
 HELP: value-info<=
-{ $values { "info1" value-info } { "info2" value-info } { "?" boolean } }
+{ $values { "info1" value-info-state } { "info2" value-info-state } { "?" boolean } }
 { $description "Checks if the first value info is equal to, or smaller than the second one." } ;
 
 HELP: value-info-state
 { $class-description "Represents constraints the compiler knows about the input and output variables to an SSA tree node. It has the following slots:"
-  { $table
-    { { $slot "class" } { "Class of values the variable can take." } }
-    { { $slot "interval" } { "Range of values the variable can take." } }
-    { { $slot "literal" } { "Literal value, if present." } }
-    { { $slot "literal?" } { "Whether the value of the variable is known at compile-time or not." } }
-    { { $slot "slots" } { "If the value is a literal tuple or fixed length type, then slots is a " { $link sequence } " of " { $link value-info-state } " encoding what is known about its slots at compile-time." } }
+  { $slots
+    { "class" { "Class of values the variable can take." } }
+    { "interval" { "Range of values the variable can take." } }
+    { "literal" { "Literal value, if present." } }
+    { "literal?" { "Whether the value of the variable is known at compile-time or not." } }
+    { "slots" { "If the value is a literal tuple or fixed length type, then slots is a " { $link sequence } " of " { $link value-info-state } " encoding what is known about its slots at compile-time." } }
   }
   "Don't mutate value infos you receive, always construct new ones. We don't declare the slots read-only to allow cloning followed by writing, and to simplify constructors."
 } ;

basis/compiler/tree/propagation/known-words/known-words.factor

@@ -358,7 +358,7 @@ generic-comparison-ops [
 
 \ instance? [
     ! We need to force the caller word to recompile when the class
-    ! is redefined, since now we're making assumptions but the
+    ! is redefined, since now we're making assumptions about the
     ! class definition itself.
     dup literal>> classoid?
     [

basis/compiler/tree/propagation/simd/simd.factor

@@ -64,7 +64,7 @@ CONSTANT: vector>vector-intrinsics
 
 CONSTANT: vector-other-intrinsics
     {
-        (simd-v.)
+        (simd-vdot)
         (simd-vsad)
         (simd-sum)
         (simd-vany?)
@@ -96,7 +96,7 @@ vector>vector-intrinsics [ { byte-array } "default-output-classes" set-word-prop
 
 \ (simd-sum) [ nip scalar-output-class ] "outputs" set-word-prop
 
-\ (simd-v.) [ 2nip scalar-output-class ] "outputs" set-word-prop
+\ (simd-vdot) [ 2nip scalar-output-class ] "outputs" set-word-prop
 
 {
     (simd-vany?)

basis/compiler/tree/propagation/slots/slots.factor

@@ -47,9 +47,6 @@ IN: compiler.tree.propagation.slots
         [ swap slot <literal-info> ]
     } 2&& ;
 
-: length-accessor? ( slot info -- ? )
-    [ 1 = ] [ length>> ] bi* and ;
-
 : value-info-slot ( slot info -- info' )
     {
         { [ over 0 = ] [ 2drop fixnum <class-info> ] }

basis/compiler/tree/propagation/transforms/transforms.factor

@@ -196,7 +196,8 @@ ERROR: bad-partial-eval quot word ;
     dup classoid?
     [
         predicate-def
-        ! union{ and intersection{ have useless expansions, and recurse infinitely
+        ! union{ and intersection{ and not{ have useless
+        ! expansions, and recurse infinitely
         dup { [ length 2 >= ] [ second \ instance? = ] } 1&& [
             drop f
         ] when

basis/compiler/tree/tree-docs.factor

@@ -18,13 +18,13 @@ HELP: #alien-callback
 
 HELP: #call
 { $class-description "SSA tree node that calls a word. It has the following slots:"
-  { $table
-    { { $slot "word" } { "The " { $link word } " to call." } }
-    { { $slot "in-d" } { "Sequence of input variables to the call. The items are ordered from top to bottom of the stack." } }
-    { { $slot "out-d" } { "Output values of the call." } }
-    { { $slot "method" } { "If the called word is generic and inlined here, then 'method' contains the inlined " { $link quotation } "." } }
-    { { $slot "body" } { "If the called word is generic and inlined, then 'body' is a sequence of SSA nodes built from the inlined method." } }
-    { { $slot "info" } { "If the called word is generic and inlined, then the info slot contains an assoc of value infos for the body of the inlined generic. It is set during the propagation pass of the optimizer." } }
+  { $slots
+    { "word" { "The " { $link word } " to call." } }
+    { "in-d" { "Sequence of input variables to the call. The items are ordered from top to bottom of the stack." } }
+    { "out-d" { "Output values of the call." } }
+    { "method" { "If the called word is generic and inlined here, then 'method' contains the inlined " { $link quotation } "." } }
+    { "body" { "If the called word is generic and inlined, then 'body' is a sequence of SSA nodes built from the inlined method." } }
+    { "info" { "If the called word is generic and inlined, then the info slot contains an assoc of value infos for the body of the inlined generic. It is set during the propagation pass of the optimizer." } }
   }
 } ;
 
@@ -34,8 +34,8 @@ HELP: #call-recursive
 
 HELP: #declare
 { $class-description "SSA tree node emitted when " { $link declare } " declarations are encountered. It has the following slots:"
-  { $table
-    { { $slot "declaration" } { { $link assoc } " that maps values to the types they are declared as." } }
+  { $slots
+    { "declaration" { { $link assoc } " that maps values to the types they are declared as." } }
   }
 } ;
 
@@ -45,8 +45,8 @@ HELP: #enter-recursive
 
 HELP: #if
 { $class-description "SSA tree node that implements conditional branching. It has the following slots:"
-  { $table
-    { { $slot "children" }
+  { $slots
+    { "children"
       { "A two item " { $link sequence } ". The first item holds the instructions executed if the condition is true and the second those that are executed if it is not true." }
     }
   }
@@ -54,8 +54,8 @@ HELP: #if
 
 HELP: #introduce
 { $class-description "SSA tree node that puts an input value from the \"outside\" on the stack. It is used to \"introduce\" data stack parameter whenever they are needed. It has the following slots:"
-  { $table
-    { { $slot "out-d" } { "Array of values of the parameters being introduced." } }
+  { $slots
+    { "out-d" { "Array of values of the parameters being introduced." } }
   }
 } ;
 
@@ -64,25 +64,25 @@ HELP: #phi
 
 HELP: #push
 { $class-description "SSA tree node that puts a literal value on the stack. It has the following slots:"
-  { $table
-    { { $slot "out-d" } { "A one item array containing the " { $link <value> } " of the literal being pushed." } }
+  { $slots
+    { "out-d" { "A one item array containing the " { $link <value> } " of the literal being pushed." } }
   }
 }
 { $notes "A " { $link quotation } " is also a literal." } ;
 
 HELP: #recursive
 { $class-description "Instruction which encodes a loop. It has the following slots:"
-  { $table
-    { { $slot "child" } { "A sequence of nodes representing the body of the loop." } }
-    { { $slot "loop?" } { "If " { $link t } ", the recursion is implemented using a jump, otherwise as a call back to the word." } }
+  { $slots
+    { "child" { "A sequence of nodes representing the body of the loop." } }
+    { "loop?" { "If " { $link t } ", the recursion is implemented using a jump, otherwise as a call back to the word." } }
   }
 }
 { $see-also inline-recursive-word } ;
 
 HELP: #shuffle
 { $class-description "SSA tree node that represents a stack shuffling operation such as " { $link swap } ". It has the following slots:"
-  { $table
-    { { $slot "mapping" } { "An " { $link assoc } " that shows how the shuffle output values (the keys) correspond to their inputs (the values)." } }
+  { $slots
+    { "mapping" { "An " { $link assoc } " that shows how the shuffle output values (the keys) correspond to their inputs (the values)." } }
   }
 } ;
 

basis/concurrency/distributed/distributed.factor

@@ -68,11 +68,11 @@ C: <connection> connection
 : send-to-connection ( message connection -- )
     stream>> [ serialize flush ] with-stream* ;
 
-M: remote-thread send ( message thread -- )
+M: remote-thread send
     [ id>> 2array ] [ node>> ] [ thread-connections at ] tri
     [ nip send-to-connection ] [ send-remote-message ] if* ;
 
-M: thread (serialize) ( obj -- )
+M: thread (serialize)
     id>> [ local-node get insecure>> ] dip <remote-thread> (serialize) ;
 
 : stop-node ( -- )

basis/concurrency/messaging/messaging.factor

@@ -13,7 +13,7 @@ M: thread mailbox-of
     [ { mailbox } declare ]
     [ <mailbox> [ >>mailbox drop ] keep ] ?if ; inline
 
-M: thread send ( message thread -- )
+M: thread send
     mailbox-of mailbox-put ;
 
 : my-mailbox ( -- mailbox ) self mailbox-of ; inline

basis/core-text/core-text.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien.c-types alien.data alien.syntax arrays
-assocs cache colors combinators core-foundation
+assocs cache classes colors combinators core-foundation
 core-foundation.attributed-strings core-foundation.strings
 core-graphics core-graphics.types core-text.fonts destructors
 fonts init kernel locals make math math.functions math.order
@@ -34,8 +34,6 @@ FUNCTION: CGRect CTLineGetImageBounds ( CTLineRef line, CGContextRef context )
 
 SYMBOL: retina?
 
-ERROR: not-a-string object ;
-
 MEMO: make-attributes ( open-font color -- hashtable )
     [
         kCTForegroundColorAttributeName ,,
@@ -46,7 +44,7 @@ MEMO: make-attributes ( open-font color -- hashtable )
     [
         [
             dup selection? [ string>> ] when
-            dup string? [ not-a-string ] unless
+            string check-instance
         ] 2dip
         make-attributes <CFAttributedString> &CFRelease
         CTLineCreateWithAttributedString
@@ -79,9 +77,7 @@ render-loc render-dim ;
     compute-height ;
 
 : metrics>dim ( bounds -- dim )
-    [ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi
-    [ ceiling >integer ]
-    bi@ 2array ;
+    [ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi 2array ;
 
 : fill-background ( context font dim -- )
     [ background>> >rgba-components CGContextSetRGBFillColor ]
@@ -90,7 +86,7 @@ render-loc render-dim ;
 
 : selection-rect ( dim line selection -- rect )
     [let [ start>> ] [ end>> ] [ string>> ] tri :> ( start end string )
-     start end [ 0 swap string subseq utf16n encode length 2 / >integer ] bi@
+     start end [ 0 swap string subseq utf16n encode length 2 /i ] bi@
     ]
     [ f CTLineGetOffsetForStringIndex round ] bi-curry@ bi
     [ drop nip 0 ] [ swap - swap second ] 3bi <CGRect> ;

basis/couchdb/couchdb.factor

@@ -18,7 +18,7 @@ SYMBOL: couch
 TUPLE: couchdb-error { data assoc } ;
 C: <couchdb-error> couchdb-error
 
-M: couchdb-error error. ( error -- )
+M: couchdb-error error.
     "CouchDB Error: " write data>>
     "error" over at [ print ] when*
     "reason" of [ print ] when* ;

basis/cpu/architecture/architecture.factor

@@ -524,7 +524,7 @@ HOOK: immediate-bitwise? cpu ( n -- ? )
 HOOK: immediate-comparand? cpu ( n -- ? )
 HOOK: immediate-store? cpu ( n -- ? )
 
-M: object immediate-comparand? ( n -- ? )
+M: object immediate-comparand?
     {
         { [ dup fixnum? ] [ tag-fixnum immediate-arithmetic? ] }
         { [ dup not ] [ drop t ] }

basis/cpu/ppc/32/linux/linux.factor

@@ -5,13 +5,13 @@ compiler.cfg.builder.alien.boxing sequences arrays
 alien.c-types cpu.architecture cpu.ppc alien.complex ;
 IN: cpu.ppc.32.linux
 
-M: linux lr-save ( -- n ) 1 cells ;
+M: linux lr-save 1 cells ;
 
-M: linux has-toc ( -- ? ) f ;
+M: linux has-toc f ;
 
-M: linux reserved-area-size ( -- n ) 2 cells ;
+M: linux reserved-area-size 2 cells ;
 
-M: linux allows-null-dereference ( -- ? ) f ;
+M: linux allows-null-dereference f ;
 
 M: ppc param-regs
     drop {
@@ -35,7 +35,7 @@ M: ppc long-long-odd-register? t ;
 
 M: ppc float-right-align-on-stack? f ;
 
-M: ppc flatten-struct-type ( type -- seq )
+M: ppc flatten-struct-type
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { int-rep f f } { int-rep f f }

basis/cpu/ppc/64/linux/linux.factor

@@ -7,11 +7,11 @@ IN: cpu.ppc.64.linux
 
 M: linux lr-save 2 cells ;
 
-M: linux has-toc ( -- ? ) t ;
+M: linux has-toc t ;
 
-M: linux reserved-area-size ( -- n ) 6 cells ;
+M: linux reserved-area-size 6 cells ;
 
-M: linux allows-null-dereference ( -- ? ) f ;
+M: linux allows-null-dereference f ;
 
 M: ppc param-regs
     drop {
@@ -33,7 +33,7 @@ M: ppc long-long-odd-register? f ;
 
 M: ppc float-right-align-on-stack? t ;
 
-M: ppc flatten-struct-type ( type -- seq )
+M: ppc flatten-struct-type
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { double-rep f f } { double-rep f f } } ] }
@@ -42,7 +42,7 @@ M: ppc flatten-struct-type ( type -- seq )
         [ heap-size cell align cell /i { int-rep f f } <repetition> ]
     } cond ;
 
-M: ppc flatten-struct-type-return ( type -- seq )
+M: ppc flatten-struct-type-return
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { double-rep f f } { double-rep f f } } ] }

basis/cpu/ppc/assembler/assembler.factor

@@ -115,16 +115,16 @@ IN: cpu.ppc.assembler
 
 ! 2.4 Branch Instructions
 GENERIC: B ( target_addr/label -- )
-M: integer B ( target_addr -- ) -2 shift 0 0 18 i-insn ;
+M: integer B -2 shift 0 0 18 i-insn ;
 
 GENERIC: BL ( target_addr/label -- )
-M: integer BL ( target_addr -- ) -2 shift 0 1 18 i-insn ;
+M: integer BL -2 shift 0 1 18 i-insn ;
 
 : BA  ( target_addr -- ) -2 shift 1 0 18 i-insn ;
 : BLA ( target_addr -- ) -2 shift 1 1 18 i-insn ;
 
 GENERIC: BC ( bo bi target_addr/label -- )
-M: integer BC ( bo bi target_addr -- ) -2 shift 0 0 16 b-insn ;
+M: integer BC -2 shift 0 0 16 b-insn ;
 
 : BCA  ( bo bi target_addr -- ) -2 shift 1 0 16 b-insn ;
 : BCL  ( bo bi target_addr -- ) -2 shift 0 1 16 b-insn ;

basis/cpu/ppc/ppc.factor

@@ -34,9 +34,9 @@ HOOK: has-toc os ( -- ? )
 HOOK: reserved-area-size os ( -- n )
 HOOK: allows-null-dereference os ( -- ? )
 
-M: label B  ( label -- )       [ 0 B  ] dip rc-relative-ppc-3-pc label-fixup ;
-M: label BL ( label -- )       [ 0 BL ] dip rc-relative-ppc-3-pc label-fixup ;
-M: label BC ( bo bi label -- ) [ 0 BC ] dip rc-relative-ppc-2-pc label-fixup ;
+M: label B  [ 0 B  ] dip rc-relative-ppc-3-pc label-fixup ;
+M: label BL [ 0 BL ] dip rc-relative-ppc-3-pc label-fixup ;
+M: label BC [ 0 BC ] dip rc-relative-ppc-2-pc label-fixup ;
 
 CONSTANT: scratch-reg    30
 CONSTANT: fp-scratch-reg 30
@@ -44,16 +44,16 @@ CONSTANT: ds-reg         14
 CONSTANT: rs-reg         15
 CONSTANT: vm-reg         16
 
-M: ppc machine-registers ( -- assoc )
+M: ppc machine-registers
     {
         { int-regs $[ 3 12 [a,b] 17 29 [a,b] append ] }
         { float-regs $[ 0 29 [a,b] ] }
     } ;
 
-M: ppc frame-reg ( -- reg ) 31 ;
-M: ppc.32 vm-stack-space ( -- n ) 16 ;
-M: ppc.64 vm-stack-space ( -- n ) 32 ;
-M: ppc complex-addressing? ( -- ? ) f ;
+M: ppc frame-reg 31 ;
+M: ppc.32 vm-stack-space 16 ;
+M: ppc.64 vm-stack-space 32 ;
+M: ppc complex-addressing? f ;
 
 ! PW1-PW8 parameter save slots
 : param-save-size ( -- n ) 8 cells ; foldable
@@ -67,7 +67,7 @@ M: ppc complex-addressing? ( -- ? ) f ;
 : param@ ( n -- offset )
     reserved-area-size + ;
 
-M: ppc gc-root-offset ( spill-slot -- n )
+M: ppc gc-root-offset
     n>> spill@ cell /i ;
 
 : LOAD32 ( r n -- )
@@ -129,12 +129,12 @@ HOOK: %load-cell-imm-rc cpu ( -- rel-class )
 M: ppc.32 %load-cell-imm-rc rc-absolute-ppc-2/2 ;
 M: ppc.64 %load-cell-imm-rc rc-absolute-ppc-2/2/2/2  ;
 
-M: ppc.32 %load-immediate ( reg val -- )
+M: ppc.32 %load-immediate
     dup -0x8000 0x7fff between? [ LI ] [ LOAD32 ] if ;
-M: ppc.64 %load-immediate ( reg val -- )
+M: ppc.64 %load-immediate
     dup -0x8000 0x7fff between? [ LI ] [ LOAD64 ] if ;
 
-M: ppc %load-reference ( reg obj -- )
+M: ppc %load-reference
     [ [ 0 %load-cell-imm ] [ %load-cell-imm-rc rel-literal ] bi* ]
     [ \ f type-number LI ]
     if* ;
@@ -156,11 +156,11 @@ M: ds-loc loc-reg drop ds-reg ;
 M: rs-loc loc-reg drop rs-reg ;
 
 ! Load value at stack location loc into vreg.
-M: ppc %peek ( vreg loc -- )
+M: ppc %peek
     [ loc-reg ] [ n>> cells neg ] bi %load-cell ;
 
 ! Replace value at stack location loc with value in vreg.
-M: ppc %replace ( vreg loc -- )
+M: ppc %replace
     [ loc-reg ] [ n>> cells neg ] bi %store-cell ;
 
 ! Replace value at stack location with an immediate value.
@@ -176,45 +176,45 @@ M:: ppc %replace-imm ( src loc -- )
     } cond
     scratch-reg reg offset %store-cell ;
 
-M: ppc %clear ( loc -- )
+M: ppc %clear
     297 swap %replace-imm ;
 
 ! Increment stack pointer by n cells.
-M: ppc %inc ( loc -- )
+M: ppc %inc
     [ ds-loc? [ ds-reg ds-reg ] [ rs-reg rs-reg ] if ] [ n>> ] bi cells ADDI ;
 
-M: ppc stack-frame-size ( stack-frame -- i )
+M: ppc stack-frame-size
     (stack-frame-size)
     reserved-area-size +
     param-save-size +
     factor-area-size +
     16 align ;
 
-M: ppc %call ( word -- )
+M: ppc %call
     0 BL rc-relative-ppc-3-pc rel-word-pic ;
 
 : instrs ( n -- b ) 4 * ; inline
 
-M: ppc %jump ( word -- )
+M: ppc %jump
     6 0 %load-cell-imm 1 instrs %load-cell-imm-rc rel-here
     0 B rc-relative-ppc-3-pc rel-word-pic-tail ;
 
-M: ppc %dispatch ( src temp -- )
+M: ppc %dispatch
     [ nip 0 %load-cell-imm 3 instrs %load-cell-imm-rc rel-here ]
     [ swap dupd %load-cell-x ]
     [ nip MTCTR ] 2tri BCTR ;
 
-M: ppc %slot ( dst obj slot scale tag -- )
+M: ppc %slot
     [ 0 assert= ] bi@ %load-cell-x ;
 
-M: ppc %slot-imm ( dst obj slot tag -- )
+M: ppc %slot-imm
     slot-offset scratch-reg swap LI
     scratch-reg %load-cell-x ;
 
-M: ppc %set-slot ( src obj slot scale tag -- )
+M: ppc %set-slot
     [ 0 assert= ] bi@ %store-cell-x ;
 
-M: ppc %set-slot-imm ( src obj slot tag -- )
+M: ppc %set-slot-imm
     slot-offset [ scratch-reg ] dip LI scratch-reg %store-cell-x ;
 
 M: ppc    %jump-label B     ;
@@ -255,7 +255,7 @@ M: ppc.64 %log2       [ CNTLZD ] [ drop dup NEG ] [ drop dup 63 ADDI ] 2tri ;
 M: ppc.32 %bit-count  POPCNTW ;
 M: ppc.64 %bit-count  POPCNTD ;
 
-M: ppc %copy ( dst src rep -- )
+M: ppc %copy
     2over eq? [ 3drop ] [
         {
             { tagged-rep [ MR ] }
@@ -276,15 +276,15 @@ M: ppc %copy ( dst src rep -- )
         { cc/o [ 0 label BNS ] }
     } case ; inline
 
-M: ppc %fixnum-add ( label dst src1 src2 cc -- )
+M: ppc %fixnum-add
     [ ADDO. ] overflow-template ;
 
-M: ppc %fixnum-sub ( label dst src1 src2 cc -- )
+M: ppc %fixnum-sub
     [ SUBFO. ] overflow-template ;
 
-M: ppc.32 %fixnum-mul ( label dst src1 src2 cc -- )
+M: ppc.32 %fixnum-mul
     [ MULLWO. ] overflow-template ;
-M: ppc.64 %fixnum-mul ( label dst src1 src2 cc -- )
+M: ppc.64 %fixnum-mul
     [ MULLDO. ] overflow-template ;
 
 M: ppc %add-float FADD ;
@@ -292,11 +292,11 @@ M: ppc %sub-float FSUB ;
 M: ppc %mul-float FMUL ;
 M: ppc %div-float FDIV ;
 
-M: ppc %min-float ( dst src1 src2 -- )
+M: ppc %min-float
     2dup [ scratch-reg ] 2dip FSUB
     [ scratch-reg ] 2dip FSEL ;
 
-M: ppc %max-float ( dst src1 src2 -- )
+M: ppc %max-float
     2dup [ scratch-reg ] 2dip FSUB
     [ scratch-reg ] 2dip FSEL ;
 
@@ -343,26 +343,26 @@ M:: ppc.64 %float>integer ( dst src -- )
     } ;
 
 ! Return values of this class go here
-M: ppc return-regs ( -- regs )
+M: ppc return-regs
     {
         { int-regs { 3 4 5 6 } }
         { float-regs { 1 2 3 4 } }
     } ;
 
 ! Is this structure small enough to be returned in registers?
-M: ppc return-struct-in-registers? ( c-type -- ? )
+M: ppc return-struct-in-registers?
     lookup-c-type return-in-registers?>> ;
 
 ! If t, the struct return pointer is never passed in a param reg
-M: ppc struct-return-on-stack? ( -- ? ) f ;
+M: ppc struct-return-on-stack? f ;
 
 GENERIC: load-param ( reg src -- )
-M: integer load-param ( reg src -- ) int-rep %copy ;
-M: spill-slot load-param ( reg src -- ) [ 1 ] dip n>> spill@ %load-cell ;
+M: integer load-param int-rep %copy ;
+M: spill-slot load-param [ 1 ] dip n>> spill@ %load-cell ;
 
 GENERIC: store-param ( reg dst -- )
-M: integer store-param ( reg dst -- ) swap int-rep %copy ;
-M: spill-slot store-param ( reg dst -- ) [ 1 ] dip n>> spill@ %store-cell ;
+M: integer store-param swap int-rep %copy ;
+M: spill-slot store-param [ 1 ] dip n>> spill@ %store-cell ;
 
 M:: ppc %unbox ( dst src func rep -- )
     3 src load-param
@@ -459,10 +459,7 @@ M:: ppc %c-invoke ( name dll gc-map -- )
     dead-outputs [ first2 discard-reg-param ] each
     ; inline
 
-M: ppc %alien-invoke ( varargs? reg-inputs stack-inputs
-                       reg-outputs dead-outputs
-                       cleanup stack-size
-                       symbols dll gc-map -- )
+M: ppc %alien-invoke
     '[ _ _ _ %c-invoke ] emit-alien-insn ;
 
 M:: ppc %alien-indirect ( src
@@ -483,36 +480,33 @@ M:: ppc %alien-indirect ( src
         gc-map gc-map-here
     ] emit-alien-insn ;
 
-M: ppc %alien-assembly ( varargs? reg-inputs stack-inputs
-                         reg-outputs dead-outputs
-                         cleanup stack-size
-                         quot -- )
+M: ppc %alien-assembly
     '[ _ call( -- ) ] emit-alien-insn ;
 
-M: ppc %callback-inputs ( reg-outputs stack-outputs -- )
+M: ppc %callback-inputs
     [ [ first3 load-reg-param ] each ]
     [ [ first3 load-stack-param ] each ] bi*
     3 vm-reg MR
     4 0 LI
     "begin_callback" f f %c-invoke ;
 
-M: ppc %callback-outputs ( reg-inputs -- )
+M: ppc %callback-outputs
     3 vm-reg MR
     "end_callback" f f %c-invoke
     [ first3 store-reg-param ] each ;
 
-M: ppc stack-cleanup ( stack-size return abi -- n )
+M: ppc stack-cleanup
     3drop 0 ;
 
 M: ppc fused-unboxing? f ;
 
-M: ppc %alien-global ( register symbol dll -- )
+M: ppc %alien-global
     [ 0 %load-cell-imm ] 2dip %load-cell-imm-rc rel-dlsym ;
 
-M: ppc %vm-field     ( dst field -- ) [ vm-reg ] dip %load-cell  ;
-M: ppc %set-vm-field ( src field -- ) [ vm-reg ] dip %store-cell ;
+M: ppc %vm-field     [ vm-reg ] dip %load-cell  ;
+M: ppc %set-vm-field [ vm-reg ] dip %store-cell ;
 
-M: ppc %unbox-alien ( dst src -- )
+M: ppc %unbox-alien
     scratch-reg alien-offset LI scratch-reg %load-cell-x ;
 
 ! Convert a c-ptr object to a raw C pointer.
@@ -706,7 +700,7 @@ M:: ppc.64 %convert-integer ( dst src c-type -- )
         { c:ulonglong [ ] }
     } case ;
 
-M: ppc.32 %load-memory-imm ( dst base offset rep c-type -- )
+M: ppc.32 %load-memory-imm
     [
         pick %trap-null
         {
@@ -725,7 +719,7 @@ M: ppc.32 %load-memory-imm ( dst base offset rep c-type -- )
         } case
     ] ?if ;
 
-M: ppc.64 %load-memory-imm ( dst base offset rep c-type -- )
+M: ppc.64 %load-memory-imm
     [
         pick %trap-null
         {
@@ -747,7 +741,7 @@ M: ppc.64 %load-memory-imm ( dst base offset rep c-type -- )
     ] ?if ;
 
 
-M: ppc.32 %load-memory ( dst base displacement scale offset rep c-type -- )
+M: ppc.32 %load-memory
     [ [ 0 assert= ] bi@ ] 2dip
     [
         pick %trap-null
@@ -767,7 +761,7 @@ M: ppc.32 %load-memory ( dst base displacement scale offset rep c-type -- )
         } case
     ] ?if ;
 
-M: ppc.64 %load-memory ( dst base displacement scale offset rep c-type -- )
+M: ppc.64 %load-memory
     [ [ 0 assert= ] bi@ ] 2dip
     [
         pick %trap-null
@@ -790,7 +784,7 @@ M: ppc.64 %load-memory ( dst base displacement scale offset rep c-type -- )
     ] ?if ;
 
 
-M: ppc.32 %store-memory-imm ( src base offset rep c-type -- )
+M: ppc.32 %store-memory-imm
     [
         {
             { c:char   [ STB ] }
@@ -808,7 +802,7 @@ M: ppc.32 %store-memory-imm ( src base offset rep c-type -- )
         } case
     ] ?if ;
 
-M: ppc.64 %store-memory-imm ( src base offset rep c-type -- )
+M: ppc.64 %store-memory-imm
     [
         {
             { c:char      [ STB ] }
@@ -828,7 +822,7 @@ M: ppc.64 %store-memory-imm ( src base offset rep c-type -- )
         } case
     ] ?if ;
 
-M: ppc.32 %store-memory ( src base displacement scale offset rep c-type -- )
+M: ppc.32 %store-memory
     [ [ 0 assert= ] bi@ ] 2dip
     [
         {
@@ -847,7 +841,7 @@ M: ppc.32 %store-memory ( src base displacement scale offset rep c-type -- )
         } case
     ] ?if ;
 
-M: ppc.64 %store-memory ( src base displacement scale offset rep c-type -- )
+M: ppc.64 %store-memory
     [ [ 0 assert= ] bi@ ] 2dip
     [
         {
@@ -914,7 +908,7 @@ M:: ppc %check-nursery-branch ( label size cc temp1 temp2 -- )
         { cc/<= [ 0 label BGT ] }
     } case ;
 
-M: ppc %call-gc ( gc-map -- )
+M: ppc %call-gc
     \ minor-gc %call gc-map-here ;
 
 M:: ppc %prologue ( stack-size -- )
@@ -1033,7 +1027,7 @@ M:: ppc %compare-float-unordered-branch ( label src1 src2 cc -- )
     src1 src2 cc \ (%compare-float-unordered) (%compare-float) :> ( branch1 branch2 )
     label branch1 branch2 (%branch) ;
 
-M: ppc %spill ( src rep dst -- )
+M: ppc %spill
     n>> spill@ swap  {
         { int-rep    [ [ 1 ] dip %store-cell ] }
         { tagged-rep [ [ 1 ] dip %store-cell ] }
@@ -1043,7 +1037,7 @@ M: ppc %spill ( src rep dst -- )
         { scalar-rep [ scratch-reg swap LI 1 scratch-reg STVX ] }
     } case ;
 
-M: ppc %reload ( dst rep src -- )
+M: ppc %reload
     n>> spill@ swap {
         { int-rep    [ [ 1 ] dip %load-cell ] }
         { tagged-rep [ [ 1 ] dip %load-cell ] }
@@ -1053,11 +1047,11 @@ M: ppc %reload ( dst rep src -- )
         { scalar-rep [ scratch-reg swap LI 1 scratch-reg LVX ] }
     } case ;
 
-M: ppc immediate-arithmetic? ( n -- ? ) -32768 32767 between? ;
-M: ppc immediate-bitwise?    ( n -- ? ) 0 65535 between? ;
-M: ppc immediate-store?      ( n -- ? ) immediate-comparand? ;
+M: ppc immediate-arithmetic? -32768 32767 between? ;
+M: ppc immediate-bitwise?    0 65535 between? ;
+M: ppc immediate-store?      immediate-comparand? ;
 
-M: ppc enable-cpu-features ( -- )
+M: ppc enable-cpu-features
     enable-float-intrinsics ;
 
 USE: vocabs

basis/cpu/x86/32/32.factor

@@ -26,18 +26,18 @@ M: x86.32 rs-reg EDI ;
 M: x86.32 stack-reg ESP ;
 M: x86.32 frame-reg EBP ;
 
-M: x86.32 immediate-comparand? ( obj -- ? ) drop t ;
+M: x86.32 immediate-comparand? drop t ;
 
 M:: x86.32 %load-vector ( dst val rep -- )
     dst 0 [] rep copy-memory* val rc-absolute rel-binary-literal ;
 
-M: x86.32 %vm-field ( dst field -- )
+M: x86.32 %vm-field
     [ 0 [] MOV ] dip rc-absolute-cell rel-vm ;
 
-M: x86.32 %set-vm-field ( dst field -- )
+M: x86.32 %set-vm-field
     [ 0 [] swap MOV ] dip rc-absolute-cell rel-vm ;
 
-M: x86.32 %vm-field-ptr ( dst field -- )
+M: x86.32 %vm-field-ptr
     [ 0 MOV ] dip rc-absolute-cell rel-vm ;
 
 M: x86.32 %mark-card
@@ -61,7 +61,7 @@ M: x86.32 vm-stack-space 16 ;
 : save-vm-ptr ( n -- )
     stack@ 0 MOV 0 rc-absolute-cell rel-vm ;
 
-M: x86.32 return-struct-in-registers? ( c-type -- ? )
+M: x86.32 return-struct-in-registers?
     lookup-c-type
     [ return-in-registers?>> ]
     [ heap-size { 1 2 4 8 } member? ] bi
@@ -87,7 +87,7 @@ M: x86.32 return-regs
 M: x86.32 %prepare-jump
     pic-tail-reg 0 MOV xt-tail-pic-offset rc-absolute-cell rel-here ;
 
-M: x86.32 %load-stack-param ( dst rep n -- )
+M: x86.32 %load-stack-param
     next-stack@ swap pick register? [ %copy ] [
         {
             { int-rep [ [ EAX ] dip MOV ?spill-slot EAX MOV ] }
@@ -96,7 +96,7 @@ M: x86.32 %load-stack-param ( dst rep n -- )
         } case
     ] if ;
 
-M: x86.32 %store-stack-param ( src rep n -- )
+M: x86.32 %store-stack-param
     stack@ swap pick register? [ swapd %copy ] [
         {
             { int-rep [ [ [ EAX ] dip ?spill-slot MOV ] [ EAX MOV ] bi* ] }
@@ -115,7 +115,7 @@ M: x86.32 %store-stack-param ( src rep n -- )
         dst ?spill-slot x87-insn execute
     ] if ; inline
 
-M: x86.32 %load-reg-param ( vreg rep reg -- )
+M: x86.32 %load-reg-param
     swap {
         { int-rep [ int-rep %copy ] }
         { float-rep [ drop \ FSTPS float-rep load-float-return ] }
@@ -132,14 +132,14 @@ M: x86.32 %load-reg-param ( vreg rep reg -- )
         src ?spill-slot x87-insn execute
     ] if ; inline
 
-M: x86.32 %store-reg-param ( vreg rep reg -- )
+M: x86.32 %store-reg-param
     swap {
         { int-rep [ swap int-rep %copy ] }
         { float-rep [ drop \ FLDS float-rep store-float-return ] }
         { double-rep [ drop \ FLDL double-rep store-float-return ] }
     } case ;
 
-M: x86.32 %discard-reg-param ( rep reg -- )
+M: x86.32 %discard-reg-param
     drop {
         { int-rep [ ] }
         { float-rep [ ST0 FSTP ] }
@@ -179,12 +179,12 @@ M:: x86.32 %box-long-long ( dst src1 src2 func gc-map -- )
 M: x86.32 %c-invoke
     [ 0 CALL rc-relative rel-dlsym ] dip gc-map-here ;
 
-M: x86.32 %begin-callback ( -- )
+M: x86.32 %begin-callback
     0 save-vm-ptr
     4 stack@ 0 MOV
     "begin_callback" f f %c-invoke ;
 
-M: x86.32 %end-callback ( -- )
+M: x86.32 %end-callback
     0 save-vm-ptr
     "end_callback" f f %c-invoke ;
 
@@ -192,7 +192,7 @@ M: x86.32 %end-callback ( -- )
     ! MINGW ABI incompatibility disaster
     [ large-struct? ] [ mingw eq? os windows? not or ] bi* and ;
 
-M: x86.32 %prepare-var-args ( reg-inputs -- ) drop ;
+M: x86.32 %prepare-var-args drop ;
 
 M:: x86.32 stack-cleanup ( stack-size return abi -- n )
     ! a) Functions which are stdcall/fastcall/thiscall have to
@@ -205,7 +205,7 @@ M:: x86.32 stack-cleanup ( stack-size return abi -- n )
         [ 0 ]
     } cond ;
 
-M: x86.32 %cleanup ( n -- )
+M: x86.32 %cleanup
     [ ESP swap SUB ] unless-zero ;
 
 M: x86.32 %safepoint
@@ -224,7 +224,7 @@ M: x86.32 flatten-struct-type
 
 M: x86.32 struct-return-on-stack? os linux? not ;
 
-M: x86.32 (cpuid) ( eax ecx regs -- )
+M: x86.32 (cpuid)
     void { uint uint void* } cdecl [
         ! Save ds-reg, rs-reg
         EDI PUSH

basis/cpu/x86/64/64.factor

@@ -40,16 +40,16 @@ M: x86.64 machine-registers
 : vm-reg ( -- reg ) R13 ; inline
 : nv-reg ( -- reg ) RBX ; inline
 
-M: x86.64 %vm-field ( dst offset -- )
+M: x86.64 %vm-field
     [ vm-reg ] dip [+] MOV ;
 
 M:: x86.64 %load-vector ( dst val rep -- )
     dst 0 [RIP+] rep copy-memory* val rc-relative rel-binary-literal ;
 
-M: x86.64 %set-vm-field ( src offset -- )
+M: x86.64 %set-vm-field
     [ vm-reg ] dip [+] swap MOV ;
 
-M: x86.64 %vm-field-ptr ( dst offset -- )
+M: x86.64 %vm-field-ptr
     [ vm-reg ] dip [+] LEA ;
 
 M: x86.64 %prepare-jump
@@ -83,7 +83,7 @@ M:: x86.64 %load-reg-param ( vreg rep reg -- )
 M:: x86.64 %store-reg-param ( vreg rep reg -- )
     reg vreg rep %copy ;
 
-M: x86.64 %discard-reg-param ( rep reg -- )
+M: x86.64 %discard-reg-param
     2drop ;
 
 M:: x86.64 %unbox ( dst src func rep -- )
@@ -102,12 +102,12 @@ M: x86.64 %c-invoke
     [ R11 0 MOV rc-absolute-cell rel-dlsym R11 CALL ] dip
     gc-map-here ;
 
-M: x86.64 %begin-callback ( -- )
+M: x86.64 %begin-callback
     param-reg-0 vm-reg MOV
     param-reg-1 0 MOV
     "begin_callback" f f %c-invoke ;
 
-M: x86.64 %end-callback ( -- )
+M: x86.64 %end-callback
     param-reg-0 vm-reg MOV
     "end_callback" f f %c-invoke ;
 
@@ -122,7 +122,7 @@ M: x86.64 long-long-on-stack? f ;
 
 M: x86.64 struct-return-on-stack? f ;
 
-M: x86.64 (cpuid) ( rax rcx regs -- )
+M: x86.64 (cpuid)
     void { uint uint void* } cdecl [
         RAX param-reg-0 MOV
         RCX param-reg-1 MOV

basis/cpu/x86/64/unix/unix.factor

@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien.c-types arrays assocs
 compiler.cfg.builder.alien.boxing cpu.architecture cpu.x86
-cpu.x86.assembler cpu.x86.assembler.operands kernel layouts make math
-math.order sequences splitting system ;
+cpu.x86.assembler cpu.x86.assembler.operands kernel layouts locals
+make math math.order namespaces sequences splitting system ;
 IN: cpu.x86.64.unix
 
 M: x86.64 param-regs
@@ -24,18 +24,28 @@ M: x86.64 reserved-stack-space 0 ;
         [ 8 mod zero? [ t , ] when , ] assoc-each
     ] { } make { t } split harvest ;
 
-: flatten-small-struct ( c-type -- seq )
-    struct-types&offset split-struct [
+:: flatten-small-struct ( c-type -- seq )
+    c-type struct-types&offset split-struct [
         [ lookup-c-type c-type-rep reg-class-of ] map
         int-regs swap member? int-rep double-rep ?
         f f 3array
-    ] map ;
+    ] map :> reps
+    int-reg-reps get float-reg-reps get and [
+        reps reg-reps :> ( int-mems float-mems )
+        int-reg-reps get int-mems + 6 >
+        float-reg-reps get float-mems + 8 > or [
+            reps [ first t f 3array ] map
+        ] [ reps ] if
+    ] [ reps ] if ;
 
-M: x86.64 flatten-struct-type ( c-type -- seq )
+M: x86.64 flatten-struct-type
     dup heap-size 16 <=
-    [ flatten-small-struct ] [ call-next-method [ first t f 3array ] map ] if ;
+    [ flatten-small-struct record-reg-reps ] [
+        call-next-method unrecord-reg-reps
+        [ first t f 3array ] map
+    ] if ;
 
-M: x86.64 return-struct-in-registers? ( c-type -- ? )
+M: x86.64 return-struct-in-registers?
     heap-size 2 cells <= ;
 
 M: x86.64 dummy-stack-params? f ;
@@ -44,6 +54,6 @@ M: x86.64 dummy-int-params? f ;
 
 M: x86.64 dummy-fp-params? f ;
 
-M: x86.64 %prepare-var-args ( reg-inputs -- )
+M: x86.64 %prepare-var-args
     [ second reg-class-of float-regs? ] count 8 min
     [ EAX EAX XOR ] [ <byte> AL swap MOV ] if-zero ;

basis/cpu/x86/64/windows/windows.factor

@@ -13,7 +13,7 @@ M: x86.64 param-regs
 
 M: x86.64 reserved-stack-space 4 cells ;
 
-M: x86.64 return-struct-in-registers? ( c-type -- ? )
+M: x86.64 return-struct-in-registers?
     heap-size { 1 2 4 8 } member? ;
 
 M: x86.64 value-struct? heap-size { 1 2 4 8 } member? ;
@@ -24,5 +24,4 @@ M: x86.64 dummy-int-params? t ;
 
 M: x86.64 dummy-fp-params? t ;
 
-M: x86.64 %prepare-var-args ( reg-inputs -- )
-    drop ;
+M: x86.64 %prepare-var-args drop ;

basis/cpu/x86/assembler/assembler.factor

@@ -338,7 +338,7 @@ M: immediate SBB { 0b011 t 0x80 } immediate-1/4 ;
 M: operand SBB 0o030 2-operand ;
 
 GENERIC: AND ( dst src -- )
-M: immediate AND ( dst src -- )
+M: immediate AND
     maybe-zero-extend { 0b100 t 0x80 } immediate-1/4 ;
 M: operand AND 0o040 2-operand ;
 
@@ -357,13 +357,11 @@ M: immediate XOR { 0b110 t 0x80 } immediate-1/4 ;
 M: operand XOR 0o060 2-operand ;
 
 GENERIC: CMP ( dst src -- )
-M: immediate CMP ( dst src -- )
-    { 0b111 t 0x80 } immediate-1/4 ;
+M: immediate CMP { 0b111 t 0x80 } immediate-1/4 ;
 M: operand CMP 0o070 2-operand ;
 
 GENERIC: TEST ( dst src -- )
-M: immediate TEST ( dst src -- )
-    maybe-zero-extend { 0b0 t 0xf7 } immediate-4 ;
+M: immediate TEST maybe-zero-extend { 0b0 t 0xf7 } immediate-4 ;
 M: operand TEST 0o204 2-operand ;
 
 : XCHG ( dst src -- ) 0o207 2-operand ;
@@ -371,20 +369,20 @@ M: operand TEST 0o204 2-operand ;
 : BSR ( dst src -- ) { 0x0f 0xbd } (2-operand) ;
 
 GENERIC: BT ( value n -- )
-M: immediate BT ( value n -- ) { 0b100 t { 0x0f 0xba } } immediate-1* ;
-M: operand   BT ( value n -- ) swap { 0x0f 0xa3 } (2-operand) ;
+M: immediate BT { 0b100 t { 0x0f 0xba } } immediate-1* ;
+M: operand   BT swap { 0x0f 0xa3 } (2-operand) ;
 
 GENERIC: BTC ( value n -- )
-M: immediate BTC ( value n -- ) { 0b111 t { 0x0f 0xba } } immediate-1* ;
-M: operand   BTC ( value n -- ) swap { 0x0f 0xbb } (2-operand) ;
+M: immediate BTC { 0b111 t { 0x0f 0xba } } immediate-1* ;
+M: operand   BTC swap { 0x0f 0xbb } (2-operand) ;
 
 GENERIC: BTR ( value n -- )
-M: immediate BTR ( value n -- ) { 0b110 t { 0x0f 0xba } } immediate-1* ;
-M: operand   BTR ( value n -- ) swap { 0x0f 0xb3 } (2-operand) ;
+M: immediate BTR { 0b110 t { 0x0f 0xba } } immediate-1* ;
+M: operand   BTR swap { 0x0f 0xb3 } (2-operand) ;
 
 GENERIC: BTS ( value n -- )
-M: immediate BTS ( value n -- ) { 0b101 t { 0x0f 0xba } } immediate-1* ;
-M: operand   BTS ( value n -- ) swap { 0x0f 0xab } (2-operand) ;
+M: immediate BTS { 0b101 t { 0x0f 0xba } } immediate-1* ;
+M: operand   BTS swap { 0x0f 0xab } (2-operand) ;
 
 : NOT  ( dst -- ) { 0b010 t 0xf7 } 1-operand ;
 : NEG  ( dst -- ) { 0b011 t 0xf7 } 1-operand ;

basis/cpu/x86/assembler/operands/operands-docs.factor

@@ -3,9 +3,9 @@ IN: cpu.x86.assembler.operands
 
 HELP: indirect
 { $class-description "Tuple that represents an indirect addressing operand. It has the following slots:"
-  { $table
-    { { $slot "index" } { "Register for the index value. It must not be " { $link ESP } " or " { $link RSP } "." } }
-    { { $slot "displacement" } { "An integer offset." } }
+  { $slots
+    { "index" { "Register for the index value. It must not be " { $link ESP } " or " { $link RSP } "." } }
+    { "displacement" { "An integer offset." } }
   }
 } ;
 

basis/cpu/x86/sse/sse.factor

@@ -35,16 +35,16 @@ M: x86 integer-float-needs-stack-frame? f ;
 M: x86 %integer>float [ drop dup XORPS ] [ CVTSI2SD ] 2bi ;
 M: x86 %float>integer CVTTSD2SI ;
 
-M: x86 %compare-float-ordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-ordered
     [ COMISD ] (%compare-float) ;
 
-M: x86 %compare-float-unordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-unordered
     [ UCOMISD ] (%compare-float) ;
 
-M: x86 %compare-float-ordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-ordered-branch
     [ COMISD ] (%compare-float-branch) ;
 
-M: x86 %compare-float-unordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-unordered-branch
     [ UCOMISD ] (%compare-float-branch) ;
 
 ! SIMD
@@ -262,7 +262,7 @@ M: x86 %shuffle-vector-halves-imm-reps
         { sse2? { double-2-rep } }
     } available-reps ;
 
-M: x86 %shuffle-vector ( dst src shuffle rep -- )
+M: x86 %shuffle-vector
     two-operand PSHUFB ;
 
 M: x86 %shuffle-vector-reps
@@ -331,14 +331,14 @@ M: x86 %unsigned-pack-vector-reps
         { sse4.1? { int-4-rep } }
     } available-reps ;
 
-M: x86 %tail>head-vector ( dst src rep -- )
+M: x86 %tail>head-vector
     dup {
         { float-4-rep [ drop UNPCKHPD ] }
         { double-2-rep [ drop UNPCKHPD ] }
         [ drop [ %copy ] [ drop PUNPCKHQDQ ] 3bi ]
     } case ;
 
-M: x86 %unpack-vector-head ( dst src rep -- )
+M: x86 %unpack-vector-head
     {
         { char-16-rep  [ PMOVSXBW ] }
         { uchar-16-rep [ PMOVZXBW ] }
@@ -349,13 +349,13 @@ M: x86 %unpack-vector-head ( dst src rep -- )
         { float-4-rep  [ CVTPS2PD ] }
     } case ;
 
-M: x86 %unpack-vector-head-reps ( -- reps )
+M: x86 %unpack-vector-head-reps
     {
         { sse2? { float-4-rep } }
         { sse4.1? { char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep } }
     } available-reps ;
 
-M: x86 %integer>float-vector ( dst src rep -- )
+M: x86 %integer>float-vector
     {
         { int-4-rep [ CVTDQ2PS ] }
     } case ;
@@ -365,7 +365,7 @@ M: x86 %integer>float-vector-reps
         { sse2? { int-4-rep } }
     } available-reps ;
 
-M: x86 %float>integer-vector ( dst src rep -- )
+M: x86 %float>integer-vector
     {
         { float-4-rep [ CVTTPS2DQ ] }
     } case ;
@@ -405,7 +405,7 @@ M: x86 %float>integer-vector-reps
         { cc> [ [ PCMPGTQ ] [ PCMPGTD ] [ PCMPGTW ] [ PCMPGTB ] (%compare-int-vector) ] }
     } case ;
 
-M: x86 %compare-vector ( dst src1 src2 rep cc -- )
+M: x86 %compare-vector
     [ [ two-operand ] keep ] dip
     over float-vector-rep?
     [ %compare-float-vector ]
@@ -481,7 +481,7 @@ M: x86 %compare-vector-ccs
         [ drop PMOVMSKB 0xffff ]
     } case ;
 
-M: x86 %move-vector-mask ( dst src rep -- )
+M: x86 %move-vector-mask
     (%move-vector-mask) drop ;
 
 M: x86 %move-vector-mask-reps
@@ -512,7 +512,7 @@ M: x86 %test-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %add-vector ( dst src1 src2 rep -- )
+M: x86 %add-vector
     [ two-operand ] keep
     {
         { float-4-rep [ ADDPS ] }
@@ -533,7 +533,7 @@ M: x86 %add-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %saturated-add-vector ( dst src1 src2 rep -- )
+M: x86 %saturated-add-vector
     [ two-operand ] keep
     {
         { char-16-rep [ PADDSB ] }
@@ -547,7 +547,7 @@ M: x86 %saturated-add-vector-reps
         { sse2? { char-16-rep uchar-16-rep short-8-rep ushort-8-rep } }
     } available-reps ;
 
-M: x86 %add-sub-vector ( dst src1 src2 rep -- )
+M: x86 %add-sub-vector
     [ two-operand ] keep
     {
         { float-4-rep [ ADDSUBPS ] }
@@ -559,7 +559,7 @@ M: x86 %add-sub-vector-reps
         { sse3? { float-4-rep double-2-rep } }
     } available-reps ;
 
-M: x86 %sub-vector ( dst src1 src2 rep -- )
+M: x86 %sub-vector
     [ two-operand ] keep
     {
         { float-4-rep [ SUBPS ] }
@@ -580,7 +580,7 @@ M: x86 %sub-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %saturated-sub-vector ( dst src1 src2 rep -- )
+M: x86 %saturated-sub-vector
     [ two-operand ] keep
     {
         { char-16-rep [ PSUBSB ] }
@@ -594,7 +594,7 @@ M: x86 %saturated-sub-vector-reps
         { sse2? { char-16-rep uchar-16-rep short-8-rep ushort-8-rep } }
     } available-reps ;
 
-M: x86 %mul-vector ( dst src1 src2 rep -- )
+M: x86 %mul-vector
     [ two-operand ] keep
     {
         { float-4-rep [ MULPS ] }
@@ -612,7 +612,7 @@ M: x86 %mul-vector-reps
         { sse4.1? { int-4-rep uint-4-rep } }
     } available-reps ;
 
-M: x86 %mul-high-vector ( dst src1 src2 rep -- )
+M: x86 %mul-high-vector
     [ two-operand ] keep
     {
         { short-8-rep  [ PMULHW ] }
@@ -624,7 +624,7 @@ M: x86 %mul-high-vector-reps
         { sse2? { short-8-rep ushort-8-rep } }
     } available-reps ;
 
-M: x86 %mul-horizontal-add-vector ( dst src1 src2 rep -- )
+M: x86 %mul-horizontal-add-vector
     [ two-operand ] keep
     {
         { char-16-rep  [ PMADDUBSW ] }
@@ -638,7 +638,7 @@ M: x86 %mul-horizontal-add-vector-reps
         { ssse3? { char-16-rep uchar-16-rep } }
     } available-reps ;
 
-M: x86 %div-vector ( dst src1 src2 rep -- )
+M: x86 %div-vector
     [ two-operand ] keep
     {
         { float-4-rep [ DIVPS ] }
@@ -651,7 +651,7 @@ M: x86 %div-vector-reps
         { sse2? { double-2-rep } }
     } available-reps ;
 
-M: x86 %min-vector ( dst src1 src2 rep -- )
+M: x86 %min-vector
     [ two-operand ] keep
     {
         { char-16-rep [ PMINSB ] }
@@ -671,7 +671,7 @@ M: x86 %min-vector-reps
         { sse4.1? { char-16-rep ushort-8-rep int-4-rep uint-4-rep } }
     } available-reps ;
 
-M: x86 %max-vector ( dst src1 src2 rep -- )
+M: x86 %max-vector
     [ two-operand ] keep
     {
         { char-16-rep [ PMAXSB ] }
@@ -691,7 +691,7 @@ M: x86 %max-vector-reps
         { sse4.1? { char-16-rep ushort-8-rep int-4-rep uint-4-rep } }
     } available-reps ;
 
-M: x86 %avg-vector ( dst src1 src2 rep -- )
+M: x86 %avg-vector
     [ two-operand ] keep
     {
         { uchar-16-rep [ PAVGB ] }
@@ -726,7 +726,7 @@ M: x86 %sad-vector-reps
         { sse2? { uchar-16-rep } }
     } available-reps ;
 
-M: x86 %horizontal-add-vector ( dst src1 src2 rep -- )
+M: x86 %horizontal-add-vector
     [ two-operand ] keep
     signed-rep {
         { float-4-rep  [ HADDPS ] }
@@ -741,7 +741,7 @@ M: x86 %horizontal-add-vector-reps
         { ssse3? { int-4-rep uint-4-rep short-8-rep ushort-8-rep } }
     } available-reps ;
 
-M: x86 %horizontal-shl-vector-imm ( dst src1 src2 rep -- )
+M: x86 %horizontal-shl-vector-imm
     two-operand PSLLDQ ;
 
 M: x86 %horizontal-shl-vector-imm-reps
@@ -749,7 +749,7 @@ M: x86 %horizontal-shl-vector-imm-reps
         { sse2? { char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep float-4-rep double-2-rep } }
     } available-reps ;
 
-M: x86 %horizontal-shr-vector-imm ( dst src1 src2 rep -- )
+M: x86 %horizontal-shr-vector-imm
     two-operand PSRLDQ ;
 
 M: x86 %horizontal-shr-vector-imm-reps
@@ -757,7 +757,7 @@ M: x86 %horizontal-shr-vector-imm-reps
         { sse2? { char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep float-4-rep double-2-rep } }
     } available-reps ;
 
-M: x86 %abs-vector ( dst src rep -- )
+M: x86 %abs-vector
     {
         { char-16-rep [ PABSB ] }
         { short-8-rep [ PABSW ] }
@@ -769,7 +769,7 @@ M: x86 %abs-vector-reps
         { ssse3? { char-16-rep short-8-rep int-4-rep } }
     } available-reps ;
 
-M: x86 %sqrt-vector ( dst src rep -- )
+M: x86 %sqrt-vector
     {
         { float-4-rep [ SQRTPS ] }
         { double-2-rep [ SQRTPD ] }
@@ -781,7 +781,7 @@ M: x86 %sqrt-vector-reps
         { sse2? { double-2-rep } }
     } available-reps ;
 
-M: x86 %and-vector ( dst src1 src2 rep -- )
+M: x86 %and-vector
     [ two-operand ] keep
     {
         { float-4-rep [ ANDPS ] }
@@ -795,7 +795,7 @@ M: x86 %and-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %andn-vector ( dst src1 src2 rep -- )
+M: x86 %andn-vector
     [ two-operand ] keep
     {
         { float-4-rep [ ANDNPS ] }
@@ -809,7 +809,7 @@ M: x86 %andn-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %or-vector ( dst src1 src2 rep -- )
+M: x86 %or-vector
     [ two-operand ] keep
     {
         { float-4-rep [ ORPS ] }
@@ -823,7 +823,7 @@ M: x86 %or-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %xor-vector ( dst src1 src2 rep -- )
+M: x86 %xor-vector
     [ two-operand ] keep
     {
         { float-4-rep [ XORPS ] }
@@ -837,7 +837,7 @@ M: x86 %xor-vector-reps
         { sse2? { double-2-rep char-16-rep uchar-16-rep short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %shl-vector ( dst src1 src2 rep -- )
+M: x86 %shl-vector
     [ two-operand ] keep
     {
         { short-8-rep [ PSLLW ] }
@@ -853,7 +853,7 @@ M: x86 %shl-vector-reps
         { sse2? { short-8-rep ushort-8-rep int-4-rep uint-4-rep longlong-2-rep ulonglong-2-rep } }
     } available-reps ;
 
-M: x86 %shr-vector ( dst src1 src2 rep -- )
+M: x86 %shr-vector
     [ two-operand ] keep
     {
         { short-8-rep [ PSRAW ] }
@@ -911,9 +911,9 @@ M: x86 %integer>scalar drop MOVD ;
         ] }
     } case ;
 
-M: x86.32 %scalar>integer ( dst src rep -- ) %scalar>integer-32 ;
+M: x86.32 %scalar>integer %scalar>integer-32 ;
 
-M: x86.64 %scalar>integer ( dst src rep -- )
+M: x86.64 %scalar>integer
     {
         { longlong-scalar-rep  [ MOVD ] }
         { ulonglong-scalar-rep [ MOVD ] }

basis/cpu/x86/x86.factor

@@ -46,7 +46,7 @@ HOOK: pic-tail-reg cpu ( -- reg )
 
 : align-stack ( n -- n' ) 16 align ;
 
-M: x86 stack-frame-size ( stack-frame -- i )
+M: x86 stack-frame-size
     (stack-frame-size)
     reserved-stack-space +
     cell +
@@ -60,7 +60,7 @@ M: x86 test-instruction? t ;
 
 M: x86 immediate-store? immediate-comparand? ;
 
-M: x86 %load-immediate ( reg val -- )
+M: x86 %load-immediate
     { fixnum } declare [ 32-bit-version-of dup XOR ] [ MOV ] if-zero ;
 
 M: x86 %load-reference
@@ -90,13 +90,13 @@ M: x86 %replace-imm
         [ [ 0 MOV ] dip rc-absolute rel-literal ]
     } cond ;
 
-M: x86 %clear ( loc -- )
+M: x86 %clear
     297 swap %replace-imm ;
 
-M: x86 %inc ( loc -- )
+M: x86 %inc
     [ n>> ] [ ds-loc? ds-reg rs-reg ? ] bi (%inc) ;
 
-M: x86 %call ( word -- ) 0 CALL rc-relative rel-word-pic ;
+M: x86 %call 0 CALL rc-relative rel-word-pic ;
 
 : xt-tail-pic-offset ( -- n )
     ! See the comment in vm/cpu-x86.hpp
@@ -104,21 +104,21 @@ M: x86 %call ( word -- ) 0 CALL rc-relative rel-word-pic ;
 
 HOOK: %prepare-jump cpu ( -- )
 
-M: x86 %jump ( word -- )
+M: x86 %jump
     %prepare-jump
     0 JMP rc-relative rel-word-pic-tail ;
 
-M: x86 %jump-label ( label -- ) 0 JMP rc-relative label-fixup ;
+M: x86 %jump-label 0 JMP rc-relative label-fixup ;
 
-M: x86 %return ( -- ) 0 RET ;
+M: x86 %return 0 RET ;
 
 : (%slot) ( obj slot scale tag -- op ) neg <indirect> ; inline
 : (%slot-imm) ( obj slot tag -- op ) slot-offset [+] ; inline
 
-M: x86 %slot ( dst obj slot scale tag -- ) (%slot) MOV ;
-M: x86 %slot-imm ( dst obj slot tag -- ) (%slot-imm) MOV ;
-M: x86 %set-slot ( src obj slot scale tag -- ) (%slot) swap MOV ;
-M: x86 %set-slot-imm ( src obj slot tag -- ) (%slot-imm) swap MOV ;
+M: x86 %slot (%slot) MOV ;
+M: x86 %slot-imm (%slot-imm) MOV ;
+M: x86 %set-slot (%slot) swap MOV ;
+M: x86 %set-slot-imm (%slot-imm) swap MOV ;
 
 :: two-operand ( dst src1 src2 rep -- dst src )
     dst src2 eq? dst src1 eq? not and [ "Cannot handle this case" throw ] when
@@ -130,13 +130,13 @@ M: x86 %set-slot-imm ( src obj slot tag -- ) (%slot-imm) swap MOV ;
     dst ; inline
 
 M: x86 %add     2over eq? [ nip ADD ] [ [+] LEA ] if ;
-M: x86 %add-imm ( dst src1 src2 -- )
+M: x86 %add-imm
     2over eq? [
         nip { { 1 [ INC ] } { -1 [ DEC ] } [ ADD ] } case
     ] [ [+] LEA ] if ;
 
 M: x86 %sub     int-rep two-operand SUB ;
-M: x86 %sub-imm ( dst src1 src2 -- )
+M: x86 %sub-imm
     2over eq? [
         nip { { 1 [ DEC ] } { -1 [ INC ] } [ SUB ] } case
     ] [ neg [+] LEA ] if ;
@@ -173,7 +173,7 @@ M: object copy-memory* copy-register* ;
 
 : ?spill-slot ( obj -- obj ) dup spill-slot? [ n>> spill@ ] when ;
 
-M: x86 %copy ( dst src rep -- )
+M: x86 %copy
     2over eq? [ 3drop ] [
         [ [ ?spill-slot ] bi@ ] dip
         2over [ register? ] both? [ copy-register* ] [ copy-memory* ] if
@@ -186,16 +186,16 @@ M: x86 %copy ( dst src rep -- )
         { cc/o [ JNO ] }
     } case ; inline
 
-M: x86 %fixnum-add ( label dst src1 src2 cc -- )
+M: x86 %fixnum-add
     [ ADD ] fixnum-overflow ;
 
-M: x86 %fixnum-sub ( label dst src1 src2 cc -- )
+M: x86 %fixnum-sub
     [ SUB ] fixnum-overflow ;
 
-M: x86 %fixnum-mul ( label dst src1 src2 cc -- )
+M: x86 %fixnum-mul
     [ IMUL2 ] fixnum-overflow ;
 
-M: x86 %unbox-alien ( dst src -- )
+M: x86 %unbox-alien
     alien-offset [+] MOV ;
 
 M:: x86 %unbox-any-c-ptr ( dst src -- )
@@ -364,7 +364,7 @@ M: x86.64 has-small-reg? 2drop t ;
 : %sign-extend ( dst src bits -- )
     [ MOVSX ] (%convert-integer) ; inline
 
-M: x86 %convert-integer ( dst src c-type -- )
+M: x86 %convert-integer
     {
         { c:char   [ 8 %sign-extend ] }
         { c:uchar  [ 8 %zero-extend ] }
@@ -411,10 +411,10 @@ M: x86 %convert-integer ( dst src c-type -- )
         } case
     ] [ nipd %copy ] ?if ;
 
-M: x86 %load-memory ( dst base displacement scale offset rep c-type -- )
+M: x86 %load-memory
     (%memory) (%load-memory) ;
 
-M: x86 %load-memory-imm ( dst base offset rep c-type -- )
+M: x86 %load-memory-imm
     (%memory-imm) (%load-memory) ;
 
 : (%store-memory) ( src exclude address rep c-type -- )
@@ -429,10 +429,10 @@ M: x86 %load-memory-imm ( dst base offset rep c-type -- )
         } case
     ] [ [ nip swap ] dip %copy ] ?if ;
 
-M: x86 %store-memory ( src base displacement scale offset rep c-type -- )
+M: x86 %store-memory
     (%memory) (%store-memory) ;
 
-M: x86 %store-memory-imm ( src base offset rep c-type -- )
+M: x86 %store-memory-imm
     (%memory-imm) (%store-memory) ;
 
 : shift-count? ( reg -- ? ) { ECX RCX } member-eq? ;
@@ -510,16 +510,16 @@ M:: x86 %check-nursery-branch ( label size cc temp1 temp2 -- )
 M: x86 gc-root-offset
     n>> spill-offset special-offset cell + cell /i ;
 
-M: x86 %call-gc ( gc-map -- )
+M: x86 %call-gc
     \ minor-gc %call
     gc-map-here ;
 
-M: x86 %alien-global ( dst symbol library -- )
+M: x86 %alien-global
     [ 0 MOV ] 2dip rc-absolute-cell rel-dlsym ;
 
-M: x86 %prologue ( n -- ) cell - decr-stack-reg ;
+M: x86 %prologue cell - decr-stack-reg ;
 
-M: x86 %epilogue ( n -- ) cell - incr-stack-reg ;
+M: x86 %epilogue cell - incr-stack-reg ;
 
 :: (%boolean) ( dst temp insn -- )
     dst \ f type-number MOV
@@ -610,10 +610,10 @@ M:: x86 %dispatch ( src temp -- )
     [ (align-code) ]
     bi ;
 
-M: x86 %spill ( src rep dst -- )
+M: x86 %spill
     -rot %copy ;
 
-M: x86 %reload ( dst rep src -- )
+M: x86 %reload
     swap %copy ;
 
 M:: x86 %local-allot ( dst size align offset -- )
@@ -661,10 +661,7 @@ M:: x86 %alien-assembly ( varargs? reg-inputs stack-inputs
     reg-outputs [ first3 %load-reg-param ] each
     dead-outputs [ first2 %discard-reg-param ] each ;
 
-M: x86 %alien-invoke ( varargs? reg-inputs stack-inputs
-                       reg-outputs dead-outputs
-                       cleanup stack-size
-                       symbols dll gc-map -- )
+M: x86 %alien-invoke
     '[ _ _ _ %c-invoke ] %alien-assembly ;
 
 M:: x86 %alien-indirect ( src
@@ -681,14 +678,14 @@ M:: x86 %alien-indirect ( src
 
 HOOK: %begin-callback cpu ( -- )
 
-M: x86 %callback-inputs ( reg-outputs stack-outputs -- )
+M: x86 %callback-inputs
     [ [ first3 %load-reg-param ] each ]
     [ [ first3 %load-stack-param ] each ] bi*
     %begin-callback ;
 
 HOOK: %end-callback cpu ( -- )
 
-M: x86 %callback-outputs ( reg-inputs -- )
+M: x86 %callback-outputs
     %end-callback
     [ first3 %store-reg-param ] each ;
 
@@ -708,10 +705,10 @@ M: x86 long-long-odd-register? f ;
 
 M: x86 float-right-align-on-stack? f ;
 
-M: x86 immediate-arithmetic? ( n -- ? )
+M: x86 immediate-arithmetic?
     -0x80000000 0x7fffffff between? ;
 
-M: x86 immediate-bitwise? ( n -- ? )
+M: x86 immediate-bitwise?
     -0x80000000 0x7fffffff between? ;
 
 :: %cmov-float= ( dst src -- )
@@ -778,7 +775,7 @@ M:: x86 %bit-test ( dst src1 src2 temp -- )
     src1 src2 BT
     dst temp \ CMOVB (%boolean) ;
 
-M: x86 enable-cpu-features ( -- )
+M: x86 enable-cpu-features
     enable-min/max
     enable-log2
     enable-bit-test

basis/cpu/x86/x87/x87.factor

@@ -86,14 +86,14 @@ M:: x86 %float>integer ( dst src -- )
     src2 shuffle-down quot call
     ST0 FSTP ; inline
 
-M: x86 %compare-float-ordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-ordered
     [ [ FCOMI ] compare-op ] (%compare-float) ;
 
-M: x86 %compare-float-unordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-unordered
     [ [ FUCOMI ] compare-op ] (%compare-float) ;
 
-M: x86 %compare-float-ordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-ordered-branch
     [ [ FCOMI ] compare-op ] (%compare-float-branch) ;
 
-M: x86 %compare-float-unordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-unordered-branch
     [ [ FUCOMI ] compare-op ] (%compare-float-branch) ;

basis/db/db-docs.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: classes kernel help.markup help.syntax sequences
-alien assocs strings math quotations db.private ;
+USING: alien assocs classes db.private help.markup help.syntax
+kernel math quotations sequences strings ;
 IN: db
 
 HELP: db-connection

basis/db/db.factor

@@ -1,8 +1,7 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays assocs classes continuations destructors kernel math
-namespaces sequences classes.tuple words strings
-tools.walker accessors combinators fry db.errors ;
+USING: accessors assocs continuations destructors fry kernel
+namespaces sequences strings ;
 IN: db
 
 TUPLE: db-connection
@@ -27,7 +26,7 @@ HOOK: parse-db-error db-connection ( error -- error' )
 
 : dispose-statements ( assoc -- ) values dispose-each ;
 
-M: db-connection dispose ( db-connection -- )
+M: db-connection dispose
     dup db-connection [
         [ dispose-statements H{ } clone ] change-insert-statements
         [ dispose-statements H{ } clone ] change-update-statements
@@ -77,7 +76,7 @@ GENERIC: bind-tuple ( tuple statement -- )
 
 GENERIC: execute-statement* ( statement type -- )
 
-M: object execute-statement* ( statement type -- )
+M: object execute-statement*
     '[
         _ _ drop query-results dispose
     ] [
@@ -139,9 +138,9 @@ HOOK: begin-transaction db-connection ( -- )
 HOOK: commit-transaction db-connection ( -- )
 HOOK: rollback-transaction db-connection ( -- )
 
-M: db-connection begin-transaction ( -- ) "BEGIN" sql-command ;
-M: db-connection commit-transaction ( -- ) "COMMIT" sql-command ;
-M: db-connection rollback-transaction ( -- ) "ROLLBACK" sql-command ;
+M: db-connection begin-transaction "BEGIN" sql-command ;
+M: db-connection commit-transaction "COMMIT" sql-command ;
+M: db-connection rollback-transaction "ROLLBACK" sql-command ;
 
 : in-transaction? ( -- ? ) in-transaction get ;