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
|
;; -*-theme-d-*-
;; Copyright (C) 2018 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.
;; Expected results: translation and running OK
(define-proper-program (tests test736)
(import (standard-library core)
(standard-library list-utilities)
(standard-library console-io))
(define-syntax map-pick
(syntax-rules ()
((_ l i result-type)
(map1 (param-lambda (%type) (((l1 %type)) result-type pure)
(tuple-ref l1 i))
l))))
(define-main-proc (() <none> nonpure)
(let ((l '((1 abc) (2 def) (3 ghi))))
(console-display-line (map-pick l 0 <integer>))
(console-display-line (map-pick l 1 <symbol>)))))
|
