Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 56 lines (51 sloc) 1.267 kb
69161ee @cgyarvin Stage down to 261.
authored
1 /* j/2/slag.c
2 **
3 ** This file is in the public domain.
4 */
5 #include "all.h"
6 #include "../pit.h"
7
8 /* functions
9 */
10 u2_weak // transfer
11 j2_mbc(Pt2, slag)(u2_wire wir_r,
12 u2_atom a, // retain
13 u2_noun b) // retain
14 {
15 if ( !u2_fly_is_cat(a) ) {
16 return u2_none;
17 }
18 else {
19 c3_w len_w = a;
20
21 while ( len_w ) {
22 if ( u2_no == u2_dust(a) ) {
23 return u2_none;
24 }
25 a = u2_t(a);
26 len_w--;
27 }
28 if ( u2_no == u2_dust(a) ) {
29 return u2_none;
30 }
31 return u2_rx(wir_r, u2_t(a));
32 }
33 }
34 u2_noun // transfer
35 j2_mb(Pt2, slag)(u2_wire wir_r,
36 u2_noun cor) // retain
37 {
38 u2_noun a, b;
39
40 if ( (u2_no == u2_mean(cor, 8, &a, 9, &b, 0)) ||
41 (u2_no == u2_stud(a)) )
42 {
43 return u2_none;
44 } else {
45 return j2_mbc(Pt2, slag)(wir_r, a, b);
46 }
47 }
48
49 /* structures
50 */
51 u2_ho_jet
52 j2_mbj(Pt2, slag)[] = {
53 { ".3", c3__lite, j2_mb(Pt2, slag), Tier2, u2_none, u2_none },
54 { }
55 };
Something went wrong with that request. Please try again.