7 lines
129 B
Scheme
7 lines
129 B
Scheme
#lang scheme/base
|
|
|
|
(require scheme/mpair)
|
|
|
|
(provide (rename-out [set-mcdr! set-cdr!]
|
|
[set-mcar! set-car!]))
|