Skip to content

Instantly share code, notes, and snippets.

@fogus

fogus/gist:1641139

Created January 19, 2012 16:52
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save fogus/1641139 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save fogus/1641139 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.factor
: throw drop ;
: tuck swap over ;
: car! ( v a - ) ! ;
: cdr! ( v a - ) cell+ ! ;
: car@ ( a - v ) @ ;
: cdr@ ( a - v ) cell+ @ ;
: cons ( k v - a ) swap 2 cells allocate throw tuck ! tuck ! ;
: cons0 ( - a ) 0 0 cons ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment