Skip to content

Instantly share code, notes, and snippets.

@dleslie
Created May 2, 2015 15:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dleslie/d0c276f7ed243d79166b to your computer and use it in GitHub Desktop.
Save dleslie/d0c276f7ed243d79166b to your computer and use it in GitHub Desktop.
-*- mode: compilation; default-directory: "~/Workspace/code/dleslie/monad-egg/" -*-
Compilation started at Sat May 2 07:59:56
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
Warning: literal in operator position: (99)
Warning: in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in toplevel procedure `run-tests':
(tests.scm:66) in procedure call to `g18301831', expected 1 argument, but was given 0 arguments
Warning: in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in toplevel procedure `run-tests':
(tests.scm:74) in procedure call to `g19841985', expected 1 argument, but was given 0 arguments
Warning: in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in toplevel procedure `run-tests':
in procedure call to `99', expected a value of type `(procedure () *)', but was given a value of type `fixnum'
Error: Arguments to inlined call of `g1984' do not match parameter-list (value1906)
Error: shell command terminated with non-zero exit status 256: '/usr/bin/chicken' 'tests.scm' -output-file '/tmp/temp9a12.10534.c' -dynamic -feature chicken-compile-shared -optimize-level 2 -debug-level 2
Warning: error in group outside of tests
Error: unbound variable: run-tests
1 test completed in 0.202 seconds.
1 error (100%).
0 out of 1 (0%) tests 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.0 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 ............................................................. [ERROR]
Error: bad argument count - received 0 but expected 1: #<procedure (? value1758)>
((do <state>
(x <- (/m! gets (lambda (value) (+ value 2))))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Modify ........................................................... [ERROR]
Error: bad argument count - received 0 but expected 1: #<procedure (? value1896)>
((do <state>
(/m! modify (lambda (value) (+ value 2)))
(x <- (/m get))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Put .............................................................. [ERROR]
Error: call of non-procedure: 99
((do <state>
(/m! put 99)
(x <- (/m get))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Fail ............................................................. [ PASS]
6 tests completed in 0.004 seconds.
3 errors (50.0%).
3 out of 6 (50.0%) tests passed.
-- done testing State ----------------------------------------------------
4 subgroups completed in 0.087 seconds.
3 out of 4 (75.0%) subgroups passed.
-- done testing CSI ----------------------------------------------------------
Compilation finished at Sat May 2 07:59:59
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment