Move >n n> >c c> to kernel-internals since they're a) never needed by user code b) unsafe

slava 2006-05-20 06:37:35 +00:00
parent 3537008608
commit 4e4d2e811d
5 changed files with 21 additions and 14 deletions

View File

@ -1,11 +1,10 @@
- remove F_USERENV rel - remove F_USERENV rel
- update walker for new interpreter
- quotations should store their originating word - quotations should store their originating word
- core foundation should use unicode strings - core foundation should use unicode strings
- alien>utf16-string, utf16-string>alien words - alien>utf16-string, utf16-string>alien words
- fix compiled gc check - fix compiled gc check
- 3 >n fep - 3 >n fep
- code walker & exceptions - code walker & exceptions -- test and debug problems
- code walker and callbacks is broken? - code walker and callbacks is broken?
- prettyprinter's highlighting of non-leaves looks bad - prettyprinter's highlighting of non-leaves looks bad
@ -30,9 +29,15 @@
- better line spacing in ui and html - better line spacing in ui and html
- tabular formatting - for inspector, changes and $values in help - tabular formatting - for inspector, changes and $values in help
- grid layout - grid layout
- make the help look better, something like this:
http://twb.ath.cx/~twb/darcs/OBSOLETE/factor/final.html
+ ui/help: + ui/help:
- new browser:
- close boxes
- separate definition & documentation tabs
- toggle/radio buttons/tabs or something
- make-frame should compile - make-frame should compile
- track: - track:
- don't allow negative dimensions - don't allow negative dimensions
@ -54,11 +59,10 @@
- zooming doesn't work - zooming doesn't work
- implement handlers for open, quit events, and whatever else - implement handlers for open, quit events, and whatever else
- polish OS X menu bar code - polish OS X menu bar code
- fix mouse-overs... - when scrolling wheel, or moving mouse out of window, rollover is not
updated
- display lists - display lists
- saving the image should save window configuration - saving the image should save window configuration
- make the UI look better, something like this:
http://twb.ath.cx/~twb/darcs/OBSOLETE/factor/final.html
- fix up the min thumb size hack - fix up the min thumb size hack
- variable width word wrap - variable width word wrap

View File

@ -1,5 +1,5 @@
USING: hashtables hashtables-internals help io-internals kernel USING: hashtables hashtables-internals help io-internals kernel
namespaces queues ; kernel-internals namespaces queues ;
GLOSSARY: "collection" "an object whose primary purpose is to aggregate other objects; examples include sequences, queues and hashtables" ; GLOSSARY: "collection" "an object whose primary purpose is to aggregate other objects; examples include sequences, queues and hashtables" ;

View File

@ -1,19 +1,19 @@
! Copyright (C) 2003, 2006 Slava Pestov. ! Copyright (C) 2003, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: kernel-internals IN: kernel-internals
USING: vectors ; USING: vectors sequences ;
: namestack* ( -- ns ) 3 getenv { vector } declare ; inline : namestack* ( -- ns ) 3 getenv { vector } declare ; inline
: >n ( namespace -- n:namespace ) namestack* push ;
: n> ( n:namespace -- namespace ) namestack* pop ;
IN: namespaces IN: namespaces
USING: arrays hashtables kernel kernel-internals math USING: arrays hashtables kernel kernel-internals math strings
sequences strings words ; words ;
: namestack ( -- ns ) namestack* clone ; inline : namestack ( -- ns ) namestack* clone ; inline
: set-namestack ( ns -- ) >vector 3 setenv ; inline : set-namestack ( ns -- ) >vector 3 setenv ; inline
: namespace ( -- namespace ) namestack* peek ; : namespace ( -- namespace ) namestack* peek ;
: >n ( namespace -- n:namespace ) namestack* push ;
: n> ( n:namespace -- namespace ) namestack* pop ;
: ndrop ( n:namespace -- ) namestack* pop* ; : ndrop ( n:namespace -- ) namestack* pop* ;
: global ( -- g ) 4 getenv { hashtable } declare ; inline : global ( -- g ) 4 getenv { hashtable } declare ; inline
: get ( variable -- value ) namestack* hash-stack ; flushable : get ( variable -- value ) namestack* hash-stack ; flushable

View File

@ -1,11 +1,14 @@
! Copyright (C) 2004, 2005 Slava Pestov. ! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: errors IN: kernel-internals
USING: kernel kernel-internals sequences ; USING: sequences ;
: >c ( continuation -- ) catchstack* push ; : >c ( continuation -- ) catchstack* push ;
: c> ( -- continuation ) catchstack* pop ; : c> ( -- continuation ) catchstack* pop ;
IN: errors
USING: kernel ;
: catch ( try -- error | try: -- ) : catch ( try -- error | try: -- )
[ >c call f c> drop f ] callcc1 nip ; inline [ >c call f c> drop f ] callcc1 nip ; inline

View File

@ -1,4 +1,4 @@
USING: errors help kernel ; USING: errors help kernel kernel-internals ;
HELP: >c "( continuation -- )" HELP: >c "( continuation -- )"
{ $values { "continuation" "a continuation" } } { $values { "continuation" "a continuation" } }