     cpBodyAlloc 1.0 NAN: 0 cpBodyInit
     x y cpv >>p :> body
     cpCircleShapeAlloc body 0.95 0 0 cpv cpCircleShapeInit
-    [ shape>> 0 >>e ] [ shape>> 0 >>u ] bi drop ;
+    dup shape>>
+        0 >>e
+        0 >>u
+        drop ;
 
 TUPLE: chipmunk-world < game-world
     space ;

                x image-width 2 / - 0.05 0.0 1.0 uniform-random-float * + 2 *
                image-height 2 / y - 0.05 0.0 1.0 uniform-random-float * + 2 *
                make-ball :> shape
                space shape body>> cpSpaceAddBody drop
                space shape cpSpaceAddShape drop
            ] when
        ] each

! Copyright (C) 2010 Erik Charlebois
! See http:// factorcode.org/license.txt for BSD license.
USING: accessors alien chipmunk.ffi classes.struct game.worlds kernel
locals math method-chains opengl.gl random sequences specialized-arrays
specialized-arrays.instances.alien.c-types.void* ui ui.gadgets.worlds
ui.pixel-formats ;
IN: chipmunk.demo
