steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

present: add callable and pointer defs.

factor-shell
Doug Coleman 2017-12-28 17:56:38 -08:00
parent fbe8d639d6
commit 6ab59c4446
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/present/present.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors effects io.pathnames kernel math math.parser USING: accessors alien.c-types effects io.pathnames kernel math
sequences strings vocabs words ; math.parser quotations sequences strings vocabs words ;
IN: present IN: present
GENERIC: present ( object -- string ) GENERIC: present ( object -- string )
@ -27,3 +27,13 @@ M: effect present effect>string ;
M: f present drop "" ; M: f present drop "" ;
M: pathname present string>> ; M: pathname present string>> ;
M: callable present
[ "[ ]" ] [
[ drop "[ " ]
[ [ present ] map " " join ]
[ drop " ]" ] tri 3append
] if-empty ;
M: pointer present
to>> name>> "*" append ;