File: embedded2.scm

package info (click to toggle)
chicken 5.3.0-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,892 kB
  • sloc: ansic: 580,083; lisp: 71,987; tcl: 1,445; sh: 588; makefile: 60
file content (27 lines) | stat: -rw-r--r-- 451 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
(import chicken.platform chicken.gc chicken.pretty-print)

#>
#include <assert.h>

int main()
{
  static char buffer[ 4096 ];

  void C_toplevel(C_word c, C_word *av);

  CHICKEN_run((void*)C_toplevel);
  assert(CHICKEN_eval_string_to_string("(oink (make-vector 10 'ok))",
				       buffer, sizeof(buffer)));
  printf("--> %s\n", buffer);
  return 0;
}
<#

(gc)
(print "starting...")

(define (oink x)
  (pp x)
  (vector-length x))

(return-to-host)