From 2405e5b90a7f41ae3c2ab22155c632148a38211e Mon Sep 17 00:00:00 2001 From: Vladimir Zhbanov Date: Mon, 24 Jul 2023 14:15:09 +0300 Subject: [PATCH] sch2pcb: Make setters for PcbElement's fields 'x' and 'y' available in Scheme. --- liblepton/scheme/lepton/ffi/sch2pcb.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/liblepton/scheme/lepton/ffi/sch2pcb.scm b/liblepton/scheme/lepton/ffi/sch2pcb.scm index 0649c7cc03..a9ca744ffc 100644 --- a/liblepton/scheme/lepton/ffi/sch2pcb.scm +++ b/liblepton/scheme/lepton/ffi/sch2pcb.scm @@ -47,7 +47,9 @@ pcb_element_get_value pcb_element_set_value pcb_element_get_x + pcb_element_set_x pcb_element_get_y + pcb_element_set_y pcb_element_line_parse pcb_element_pkg_to_element @@ -101,7 +103,9 @@ (define-lff pcb_element_get_value '* '(*)) (define-lff pcb_element_set_value void '(* *)) (define-lff pcb_element_get_x '* '(*)) +(define-lff pcb_element_set_x void '(* *)) (define-lff pcb_element_get_y '* '(*)) +(define-lff pcb_element_set_y void '(* *)) (define-lff pcb_element_line_parse '* '(*)) (define-lff pcb_element_pkg_to_element '* '(*))