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

Get locals to load

db4
Slava Pestov 2008-01-06 12:17:38 -04:00
parent cf4c13f55b
commit b4b59521c7
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/locals/locals.factor
View File

@ -1,14 +1,15 @@
! Inspired by ! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
! http://cat-language.googlecode.com/svn/trunk/CatPointFreeForm.cs ! See http://factorcode.org/license.txt for BSD license.
USING: kernel namespaces sequences sequences.private assocs USING: kernel namespaces sequences sequences.private assocs
math inference.transforms parser words quotations debugger math inference.transforms parser words quotations debugger
macros arrays macros splitting combinators prettyprint.backend macros arrays macros splitting combinators prettyprint.backend
definitions prettyprint hashtables combinators.lib definitions prettyprint hashtables combinators.lib
prettyprint.sections ; prettyprint.sections ;
IN: locals IN: locals
! Inspired by
! http://cat-language.googlecode.com/svn/trunk/CatPointFreeForm.cs
<PRIVATE <PRIVATE
TUPLE: lambda vars body ; TUPLE: lambda vars body ;
@ -259,7 +260,7 @@ PRIVATE>
MACRO: with-locals ( form -- quot ) lambda-rewrite ; MACRO: with-locals ( form -- quot ) lambda-rewrite ;
: :: "lambda" (::) drop define-compound ; parsing : :: "lambda" (::) drop define ; parsing
: MACRO:: "lambda-macro" (::) (MACRO:) ; parsing : MACRO:: "lambda-macro" (::) (MACRO:) ; parsing
@ -306,7 +307,7 @@ M: wlet pprint*
{ wlet-body wlet-vars wlet-bindings } get-slots pprint-let { wlet-body wlet-vars wlet-bindings } get-slots pprint-let
\ ] pprint-word ; \ ] pprint-word ;
PREDICATE: compound lambda-word PREDICATE: word lambda-word
"lambda" word-prop >boolean ; "lambda" word-prop >boolean ;
M: lambda-word definer drop \ :: \ ; ; M: lambda-word definer drop \ :: \ ; ;