[ create a new paste ] login | about

Link: http://codepad.org/c0Mjp7i0    [ raw code | output | fork ]

hurracane - Scheme, pasted on Jul 18:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#lang racket

(define connection%
  (class object%
    (super-new)
    (init-field input-source
                output-source)
    
    (define/public (get-input-source)
      input-source)
    (define/public (get-output-source)
      output-source)
    (define/public (get-output)
      (send output-source get-output))
    (define/public (refresh! new-items)
      (send input-source refresh! new-items)
      (send output-source refresh! new-items))))


Output:
1
2
3
4
standard-module-name-resolver: collection not found: "racket" in any of: (#<path:/usr/lib/plt/collects>)

 === context ===
cloop


Create a new paste based on this one


Comments: