Paste: get with default

Author: x6j8x
Mode: factor
Date: Fri, 6 Mar 2009 17:44:23
Plain Text | 
: get* ( symbol default -- value )
    [ get ] dip '[ _ ] unless* ; inline

Annotation: Alternate code

Author: Samuel Tardieu
Mode: factor
Date: Fri, 6 Mar 2009 19:32:36
Plain Text | 
: get* ( symbol default -- value ) [ get ] dip or ;

New Annotation

Summary:
Author:
Mode:
Body: