Commits

crcx committed a78cbc1 Draft

add 'describe' to core image

Comments (0)

Files changed (2)

   "( -n ) Type constant for linked lists" :doc
 ;chain
 
+
+: describe
+  d' 0; dup d->name swap dup d->doc @ swap d->class @ xt->d d->name "\n%s\n%s\n%s\n" puts ;
+"( ``- ) provide information about a function" :doc
+
 ( cleanup and save ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 global .s save bye
 

retroImage

Binary file modified.