*compilation*.txt

-*- mode: compilation; default-directory: "~/Workspace/code/dleslie/monad-egg/" -*-
Compilation started at Sat May  2 07:58:01

chicken-install -test
retrieving ...
checking platform for `monad' ...
checking dependencies for `monad' ...
mapped (srfi-1 srfi-1) to ()
install order:
("monad")
installing monad: ...
changing current directory to .
  '/usr/bin/csi' -bnq -setup-mode -e "(require-library setup-api)" -e "(import setup-api)" -e "(setup-error-handling)" -e "(extension-name-and-version '(\"monad\" \"\"))" 'monad.setup'
  '/usr/bin/csc' -feature compiling-extension -setup-mode    -s -d2 monad.scm -j funky

Warning: redefinition of imported syntax binding: do

Warning: redefinition of imported syntax binding: do
  '/usr/bin/csc' -feature compiling-extension -setup-mode    -s -d2 monad.import.scm
  cp -r 'monad.so' '/var/lib/chicken/7/monad.so'
  chmod a+r '/var/lib/chicken/7/monad.so'
  cp -r 'monad.import.so' '/var/lib/chicken/7/monad.import.so'
  chmod a+r '/var/lib/chicken/7/monad.import.so'
  chmod a+r '/var/lib/chicken/7/monad.setup-info'
  '/usr/bin/csi' -s run.scm monad 

-- testing CSC ---------------------------------------------------------------

    -- testing Identity ------------------------------------------------------
    Unit ............................................................. [ERROR]
        
Error: unbound variable: monad#<id>-unit
        (do <id> (return '()))
    Bind ............................................................. [ERROR]
        
Error: unbound variable: monad#<id>-bind
        (do <id> (x <- 'a) (return `(,x)))
    Fail ............................................................. [ PASS]
    3 tests completed in 0.0 seconds.
    2 errors (66.7%).
    1 out of 3 (33.3%) test passed.
    -- done testing Identity -------------------------------------------------


    -- testing Maybe ---------------------------------------------------------
    Unit ............................................................. [ERROR]
        
Error: unbound variable: monad#<maybe>-bind
        (do <maybe> (if #t (return 'First) (fail)) (return 'Second))
    Bind ............................................................. [ERROR]
        
Error: unbound variable: monad#<maybe>-bind
        (do <maybe> (x <- (fail)) (if #t x (return 'First)) (return 'Second))
    Fail ............................................................. [ERROR]
        
Error: unbound variable: monad#<maybe>-fail
        (do <maybe> (fail))
    3 tests completed in 0.001 seconds.
    3 errors (100%).
    0 out of 3 (0%) tests passed.
    -- done testing Maybe ----------------------------------------------------


    -- testing List ----------------------------------------------------------
    Unit ............................................................. [ERROR]
        
Error: unbound variable: monad#<list>-unit
        (do <list> (return 1))
    Bind ............................................................. [ERROR]
        
Error: unbound variable: monad#<list>-bind
        (do <list> (x <- '(1 2)) (y <- '(a b)) (return `(,x ,y)))
    Fail ............................................................. [ PASS]
    3 tests completed in 0.0 seconds.
    2 errors (66.7%).
    1 out of 3 (33.3%) test passed.
    -- done testing List -----------------------------------------------------


    -- testing State ---------------------------------------------------------
    Unit ............................................................. [ERROR]
        
Error: unbound variable: monad#<state>-unit
        ((do <state> (return 1)) #f)
    Bind ............................................................. [ERROR]
        
Error: unbound variable: monad#<state>-bind
        ((do <state>
             (x <- (/m get))
           (if (> x 0) (return 'Positive) (return 'Negative)))
         1)
    Gets ............................................................. [ERROR]
        
Error: unbound variable: monad#<state>-bind
        ((do <state>
             (x <- (/m! gets (lambda (value) (+ value 2))))
           (if (> x 0) (return 'Positive) (return 'Negative)))
         -1)
    Modify ........................................................... [ERROR]
        
Error: unbound variable: monad#<state>-bind
        ((do <state>
             (/m! modify (lambda (value) (+ value 2)))
           (x <- (/m get))
           (if (> x 0) (return 'Positive) (return 'Negative)))
         -1)
    Put .............................................................. [ERROR]
        
Error: unbound variable: monad#<state>-bind
        ((do <state>
             (/m! put 99)
           (x <- (/m get))
           (if (> x 0) (return 'Positive) (return 'Negative)))
         -1)
    Fail ............................................................. [ PASS]
    6 tests completed in 0.001 seconds.
    5 errors (83.3%).
    1 out of 6 (16.7%) test passed.
    -- done testing State ----------------------------------------------------

4 subgroups completed in 1.449 seconds.
0 out of 4 (0%) subgroups passed.
-- done testing CSC ----------------------------------------------------------


-- testing CSI ---------------------------------------------------------------

    -- testing Identity ------------------------------------------------------
    Unit ............................................................. [ PASS]
    Bind ............................................................. [ PASS]
    Fail ............................................................. [ PASS]
    3 tests completed in 0.0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing Identity -------------------------------------------------


    -- testing Maybe ---------------------------------------------------------
    Unit ............................................................. [ PASS]
    Bind ............................................................. [ PASS]
    Fail ............................................................. [ PASS]
    3 tests completed in 0.001 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing Maybe ----------------------------------------------------


    -- testing List ----------------------------------------------------------
    Unit ............................................................. [ PASS]
    Bind ............................................................. [ PASS]
    Fail ............................................................. [ PASS]
    3 tests completed in 0.0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing List -----------------------------------------------------


    -- testing State ---------------------------------------------------------
    Unit ............................................................. [ PASS]
    Bind ............................................................. [ PASS]
    Gets ............................................................. [ PASS]
    Modify ........................................................... [ PASS]
    Put .............................................................. [ PASS]
    Fail ............................................................. [ PASS]
    6 tests completed in 0.0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing State ----------------------------------------------------

4 subgroups completed in 0.083 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing CSI ----------------------------------------------------------


Compilation finished at Sat May  2 07:58:05