]> gitweb.factorcode.org Git - factor.git/commitdiff
python: compressed using lines
authorBjörn Lindqvist <bjourne@gmail.com>
Tue, 28 Jan 2014 18:45:31 +0000 (19:45 +0100)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 4 Mar 2014 17:23:04 +0000 (09:23 -0800)
extra/python/ffi/ffi.factor
extra/python/python-tests.factor
extra/python/python.factor
extra/python/syntax/syntax-tests.factor
extra/python/syntax/syntax.factor

index b12fa5c2bf8431a6f7094bad8623e5b39e3c9af0..0d51c55e54547b001406ae0c942f056181997f51 100644 (file)
@@ -1,13 +1,5 @@
-USING:
-    alien
-    alien.c-types
-    alien.destructors
-    alien.libraries alien.libraries.finder
-    alien.syntax
-    assocs
-    kernel
-    sequences
-    system ;
+USING: alien alien.c-types alien.destructors alien.libraries alien.libraries.finder
+alien.syntax assocs kernel sequences system ;
 IN: python.ffi
 
 << "python" {
index 7351a6f3f22e9b454c38a6f3b178bd96611da4a0..4a24f6e4be4912287b430707bd1abc128adbbc59 100644 (file)
@@ -1,14 +1,5 @@
-USING:
-    accessors arrays assocs
-    calendar
-    continuations
-    destructors
-    fry kernel
-    math
-    namespaces
-    python python.ffi
-    sequences
-    strings tools.test ;
+USING: accessors arrays assocs calendar continuations destructors fry kernel
+math namespaces python python.ffi sequences strings tools.test ;
 IN: python.tests
 
 py-initialize
index 54016efcef1281cb3505cea5ddc6f5a8d1885541..be4052e87facef9c3d4e41f03aa0713fd7cebcdc 100644 (file)
@@ -1,17 +1,5 @@
-USING:
-    accessors
-    alien alien.c-types alien.data
-    arrays
-    assocs
-    fry
-    grouping
-    hashtables
-    kernel
-    namespaces
-    python.ffi
-    sequences
-    strings
-    words ;
+USING: accessors alien alien.c-types alien.data arrays assocs fry grouping
+hashtables kernel namespaces python.ffi sequences strings words ;
 IN: python
 QUALIFIED: math
 
index 64b7d2f451b95a930c1c8141dd44db0594fd7022..0bd184732f37db52a11e6b2abc0a244cceb0dcc7 100644 (file)
@@ -1,13 +1,5 @@
-USING:
-    assocs
-    destructors
-    fry
-    kernel
-    math
-    namespaces
-    python python.ffi python.syntax python.tests
-    sequences
-    tools.test ;
+USING: assocs destructors fry kernel math namespaces python python.ffi
+python.syntax python.tests sequences tools.test ;
 IN: python.syntax.tests
 
 ! Define your own type conversions.
index 1068904d6aa415d31cdd43c65dd1c81adb5c1cf3..fa6644ffc27ac1a5d442f768daa5c14a7fa7e8e2 100644 (file)
@@ -1,19 +1,6 @@
-USING:
-    accessors
-    arrays
-    effects effects.parser
-    formatting
-    fry
-    generalizations
-    kernel
-    lexer
-    locals
-    namespaces
-    parser
-    python python.ffi
-    sequences sequences.generalizations
-    vocabs.parser
-    words ;
+USING: accessors arrays effects effects.parser formatting fry generalizations
+kernel lexer locals namespaces parser python python.ffi sequences
+sequences.generalizations vocabs.parser words ;
 IN: python.syntax
 
 py-initialize
@@ -47,11 +34,11 @@ SYMBOL: current-module
     effect quot [ define-inline ] bi ; inline
 
 :: add-function ( function effect -- )
+    effect in>> { "ret" } <effect> :> py-effect
     function "%s" effect [ factor>factor-quot ] make-function
     function "|%s" effect [ py>factor-quot ] make-function
-    function "|%s|" effect in>> { "ret" } <effect> [ py>py-quot ] make-function
-    function "%s|" effect in>> { "ret" } <effect> [ factor>py-quot ] make-function
-    ; inline
+    function "|%s|" py-effect [ py>py-quot ] make-function
+    function "%s|" py-effect [ factor>py-quot ] make-function ; inline
 
 : parse-python-word ( -- )
     scan-token dup ";" = [ drop ] [