Permalink
Browse files

New rope fully introduced and ket hack removed.

  • Loading branch information...
1 parent b148bdc commit c160bbaa52cb7ef36acb72a00b4a04ea50337b99 @cgyarvin committed Mar 23, 2012
Showing with 4 additions and 4 deletions.
  1. +1 −1 gen204/pit.h
  2. +1 −1 gen205/pit.h
  3. BIN jupiter/sys/204/watt.pill
  4. +1 −1 jupiter/sys/204/watt.watt
  5. +1 −1 jupiter/sys/205/watt.watt
View
@@ -21,7 +21,7 @@
# define Tier5 u2_jet_live
//# define Tier5_b (u2_jet_live | u2_jet_test | u2_jet_memo)
# define Tier5_b u2_jet_live
-# define Tier6 u2_jet_live
+# define Tier6 u2_jet_dead
# define Tier6_a Tier6
# define Tier6_b Tier6
// # define Tier6_b (u2_jet_live | u2_jet_test)
View
@@ -21,7 +21,7 @@
# define Tier5 u2_jet_live
//# define Tier5_b (u2_jet_live | u2_jet_test | u2_jet_memo)
# define Tier5_b u2_jet_live
-# define Tier6 u2_jet_live
+# define Tier6 u2_jet_dead
# define Tier6_a Tier6
# define Tier6_b Tier6
// # define Tier6_b (u2_jet_live | u2_jet_test)
Binary file not shown.
@@ -5827,7 +5827,7 @@
dot
;~ pose
%+ cook
- |=([a=(list) b=term] ?@(a [b ~] [b [~ 2] $(a t.a)]))
+ |=([a=(list) b=term] [?~(a b [%| (lent a) b]) ~])
;~(plug (star ket) ;~(pose sym (cold %% buc)))
::
%+ cook
@@ -5827,7 +5827,7 @@
dot
;~ pose
%+ cook
- |=([a=(list) b=term] ?@(a [b ~] [b [~ 2] $(a t.a)]))
+ |=([a=(list) b=term] [?~(a b [%| (lent a) b]) ~])
;~(plug (star ket) ;~(pose sym (cold %% buc)))
::
%+ cook

0 comments on commit c160bba

Please sign in to comment.